Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 107,784

HOME > .NET Framework > Forum > การ insert ข้อมูล ครับ ทุกครั้งที่เราจะ เพิ่ม ลบ แก้ไข หรือ ทำอะไรที่เชื่อมกับ ฐานข้อมูล เราต้อง ...





 

การ insert ข้อมูล ครับ ทุกครั้งที่เราจะ เพิ่ม ลบ แก้ไข หรือ ทำอะไรที่เชื่อมกับ ฐานข้อมูล เราต้อง ...

 



Topic : 130925



โพสกระทู้ ( 13 )
บทความ ( 0 )



สถานะออฟไลน์




การ insert ข้อมูล ครับ ทุกครั้งที่เราจะ เพิ่ม ลบ แก้ไข หรือ ทำอะไรที่เชื่อมกับ ฐานข้อมูล เราต้อง ...

Code (VB.NET)
    Imports System.Data.SqlClient

    'ประกาศตัวแปร
    Friend con As New SqlConnection("data source=.\SQL2012;initial catalog=Projectcall; integrated Security=sspi;")
    Friend cmd As New SqlCommand
    Friend sql As String = ""


ข้อความข้างบน ทุก หน้าหรือเปล่าครับ เช่น ... frm_login ก็เขียน code ข้างบน frm_main ก็เขียน code ข้างบน จึงจะเรียกใช้หรือเชื่อมต่อกับ
ฐานข้อมูลได้ครับ รบกวนผู้รู้แจ้งช่วยที

แล้วอีกอย่าง เราทำ หน้า Module ไว้เขียน code ใช้ได้ทั้ง frm เลยไหมครับ ไม่ต้องเขียนซ้ำหรือว่าแค่ก๊อปมาวางก็ใชได้ อธิบายอย่างระเอียดให้ทีนะครับ ขอบคุณมากๆ

#คนแก่มือใหม่



Tag : ASP, Ms SQL Server 2012, Web (ASP.NET), VB.NET







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2018-04-27 10:46:02 By : chatchawan5897 View : 359 Reply : 3
 

 

No. 1



โพสกระทู้ ( 114 )
บทความ ( 3 )



สถานะออฟไลน์
Facebook

ก็ทำโมดูลขึ้นมาอันนึงก็ได้ครับ แล้วประกาศเป็น Friend หรือ Public ก็เรียกใช้ได้ทั้งโปรเจ็คแล้วครับ

เช่น
Code (VB.NET)
Imports MySql.Data.MySqlClient

Module ModuleCode
 Friend FileConfigINI_mcode = Application.StartupPath + "\CONFIG.ini"
    Friend server As String = HexToStr(ReadIni(FileConfigINI_mcode, "database_config", "server", ""))
    Friend database As String = HexToStr(ReadIni(FileConfigINI_mcode, "database_config", "data_base_name", ""))
    Friend user As String = HexToStr(ReadIni(FileConfigINI_mcode, "database_config", "data_base_user", ""))
    Friend password As String = HexToStr(ReadIni(FileConfigINI_mcode, "database_config", "data_base_password", ""))
    Friend port As String = HexToStr(ReadIni(FileConfigINI_mcode, "database_config", "data_base_port", ""))
    'connect database
    Public data As String = "Server='" & server & "';Port='" & port & "';Database='" & database & "';Uid='" & user & "';Pwd='" & password & "';Convert Zero Datetime=True;"

    ''' <summary>
    ''' MySqlConnection
    ''' </summary>
    ''' <remarks></remarks>
    Public ConnectionDB As New MySqlConnection(data)
    Dim constrAppconfig As String = "server=" + server + ";Port=" + port + ";user id=" + user + ";password=" + password + ";database=" + database + ";Convert Zero Datetime=True;"

    ''' <summary>
    ''' String สำหรับ MySQL
    ''' </summary>
    ''' <remarks></remarks>
    Public strSQL As String

    ''' <summary>
    ''' MySqlDataAdapter
    ''' </summary>
    ''' <remarks></remarks>
    Public dtAdapter As MySqlDataAdapter

    ''' <summary>
    ''' DataTable Form MySQL
    ''' </summary>
    ''' <remarks></remarks>
    Public dt As DataTable

    ''' <summary>
    ''' DataSet Form MySQL
    ''' </summary>
    ''' <remarks></remarks>
    Public ds As DataSet

    ''' <summary>
    '''  DataRow Form MySQL
    ''' </summary>
    ''' <remarks></remarks>
    Public dRow As DataRow

    ''' <summary>
    ''' MySqlCommand
    ''' </summary>
    ''' <remarks></remarks>
    Public cmd As MySqlCommand

    ''' <summary>
    ''' MySqlDataReader
    ''' </summary>
    ''' <remarks></remarks>
    Public Dr As MySqlDataReader

    ''' <summary>
    ''' DataView From MySQL
    ''' </summary>
    ''' <remarks></remarks>
    Public dv As DataView
    Public saveMess As Integer
    Friend cashSelectDetail As String

    ''' <summary>
    ''' เปิด/ปิด การเชื่อมต่อฐานข้อมูล MySQL อัตโนมัติ 
    ''' </summary>
    ''' <remarks>Call open_connection()</remarks>
    Public Sub open_connection()
        Try
            If ConnectionDB.State = ConnectionState.Open Then ConnectionDB.Close()
            ConnectionDB.Open()
        Catch ex As Exception
            Throw New Exception("การเชื่อมต่อฐานข้อมูลใช้งานไม่ได้ เกิดข้อผิดพลาด : " & ex.Message)
        End Try
    End Sub
End Module


เรียกใช้ในฟอร์มต่างๆ

Code (VB.NET)
   Friend MenuLoigName As String
    Friend access, leval As Integer
 Friend Sub checkAccess(ByVal CeAc As String)
        Try
            access = Nothing
            leval = Nothing
            MenuLoigName = CeAc
            cmd = New MySqlCommand("SELECT access,leval FROM access_lavel WHERE zone='" & CeAc & "'", ConnectionDB)
            Call open_connection()
            Dr = cmd.ExecuteReader()
            If Dr.HasRows Then
                Dr.Read()
                access = Dr.Item("access")
                leval = Dr.Item("leval")
            End If
        Catch ex As Exception
            Me.lblMainStatus.Text = "Error - " & Me.GetType().Name & " - " & System.Reflection.MethodBase.GetCurrentMethod().Name & " - " & ex.Message
        End Try
    End Sub


การประกาศตัวแปรในโมดูล เวลาใช้เราไม่ต้องอ้างอิงใด ๆ ต่างจากประกาศใน Form หรือ Class ต้องอ้างอิงชื่อ Form หรือ Class นั้น ๆ ที่ตัวแปรถูกประกาศอยู่ เช่น

Code (VB.NET)
Public Class MainFrm

Public r As String

End Class 


เวลานำไปใช้ใน Form หรือ Class อื่น ต้องอ้างอิงชื่อ คลาสนั้นด้วย

Code (VB.NET)
MainFrm.r = "abcd"
'หรือ 
me.Textbox1.Text = MainFrm.r







แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-04-29 10:13:33 By : pakyaudio
 


 

No. 2



โพสกระทู้ ( 3,973 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

ใช้ dataset ครับ ง่ายๆชิลๆ

https://www.thaicreate.com/free-web-script/asp-net-create-shopping-cart-step-by-step.html
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-04-29 18:06:17 By : lamaka.tor
 

 

No. 3



โพสกระทู้ ( 13 )
บทความ ( 0 )



สถานะออฟไลน์


ขอบคุณมากครับ จะเอาไปศึกษานะครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-04-30 14:36:18 By : chatchawan5897
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : การ insert ข้อมูล ครับ ทุกครั้งที่เราจะ เพิ่ม ลบ แก้ไข หรือ ทำอะไรที่เชื่อมกับ ฐานข้อมูล เราต้อง ...
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: Voake, Comcube, รับทำเว็บไซต์ รับเขียนโปรแกรม

Load balance : Server 05
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2019 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 , 08-9968-0655 อัตราราคา คลิกที่นี่