กระดานแสดงความคิดเห็น

ปรับปรุง : 2566-10-15 (กระดานแสดงความคิดเห็น)

เว็บเพจหน้านี้สำหรับผู้ดูแลเท่านั้น
รหัส secure =>	นำตัวอักษร สีขาวบนพื้นแดง มาป้อนในช่องนี้
edit_topic_password =>
<center><table width=90% border=0 bgcolor=#000080><tr><td><font color=white size=4>ตัวอย่าง code .net เกี่ยวกับการเพิ่มข้อมูล</td></tr></table><table width=90% bordercolor=#000080 border=1><tr><td bgcolor=white><br>Option Strict On<br /> Option Explicit On<br /> Imports System<br /> Imports System.Data.SqlClient<br /> <br /> Public Class Form3<br /> Public i As Integer<br /> Dim mybind As New BindingSource<br /> <br /> Private Sub b5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b5.Click<br /> Form1.Show()<br /> End Sub<br /> <br /> Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click<br /> Close()<br /> <br /> End Sub<br /> Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Dim mycmd As New SqlCommand<br /> mycmd = fnccmddspcust()<br /> mydataset = f11(mydataset, mycmd, "customers")<br /> mybind.DataSource = mydataset<br /> mybind.DataMember = "customers"<br /> i = 0<br /> Call showdatadetail()<br /> End Sub<br /> Private Sub showdatadetail()<br /> Me.xCustomerid.Text = mydataset.Tables("customers").Rows(i).Item("customerid").ToString<br /> Me.xcompanyname.Text = mydataset.Tables("customers").Rows(i).Item("companyname").ToString<br /> Me.xcontactname.Text = mydataset.Tables("customers").Rows(i).Item("contactname").ToString<br /> Me.xcontacttitle.Text = mydataset.Tables("customers").Rows(i).Item("contacttitle").ToString<br /> Me.xaddress.Text = mydataset.Tables("customers").Rows(i).Item("address").ToString<br /> Me.xcity.Text = mydataset.Tables("customers").Rows(i).Item("city").ToString<br /> Me.xregion.Text = mydataset.Tables("customers").Rows(i).Item("region").ToString<br /> Me.xpostalcode.Text = mydataset.Tables("customers").Rows(i).Item("postalcode").ToString<br /> Me.xcountry.Text = mydataset.Tables("customers").Rows(i).Item("country").ToString<br /> Me.xphone.Text = mydataset.Tables("customers").Rows(i).Item("phone").ToString<br /> Me.xfax.Text = mydataset.Tables("customers").Rows(i).Item("fax").ToString<br /> End Sub<br /> <br /> Private Sub b3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b3.Click<br /> If i = mydataset.Tables("customers").Rows.Count - 1 Then i = -1<br /> i = i + 1<br /> Call showdatadetail()<br /> End Sub<br /> <br /> Private Sub b2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b2.Click<br /> If i = 0 Then i = mydataset.Tables("customers").Rows.Count<br /> i = i - 1<br /> Call showdatadetail()<br /> End Sub<br /> <br /> Private Sub b1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b1.Click<br /> mybind.MoveFirst()<br /> i = mybind.Position<br /> Call showdatadetail()<br /> End Sub<br /> <br /> Private Sub b4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b4.Click<br /> i = mydataset.Tables("customers").Rows.Count - 1<br /> Call showdatadetail()<br /> End Sub<br /> <br /> Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click<br /> Dim mycustid As String = InputBox("please", "")<br /> i = mybind.Find("Customerid", mycustid)<br /> MessageBox.Show(i.ToString)<br /> Call showdatadetail()<br /> End Sub<br /> <br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> Call cleartext()<br /> Dim myrows As DataRow = mydataset.Tables("customers").NewRow<br /> End Sub<br /> Private Sub cleartext()<br /> Me.xCustomerid.Text = ""<br /> Me.xcompanyname.Text = ""<br /> Me.xcontactname.Text = ""<br /> Me.xcontacttitle.Text = ""<br /> Me.xaddress.Text = ""<br /> Me.xcity.Text = ""<br /> Me.xregion.Text = ""<br /> Me.xpostalcode.Text = ""<br /> Me.xcountry.Text = ""<br /> Me.xphone.Text = ""<br /> Me.xfax.Text = ""<br /> End Sub<br /> <br /> Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click<br /> <br /> Dim mydatarow As DataRow = mydataset.Tables("customers").NewRow<br /> mydatarow(0) = xCustomerid.Text<br /> mydatarow(1) = xcompanyname.Text<br /> mydatarow(2) = xcontactname.Text<br /> mydatarow(3) = xcontacttitle.Text<br /> mydatarow(4) = xaddress.Text<br /> mydatarow(5) = xcity.Text<br /> mydatarow(6) = xregion.Text<br /> mydatarow(7) = xpostalcode.Text<br /> mydatarow(8) = xcountry.Text<br /> mydatarow(9) = xphone.Text<br /> mydatarow(10) = xfax.Text<br /> Dim re As Integer<br /> re = fnccmdinsertcust(mydatarow)<br /> <br /> 'Dim result As Integer = mycmd.ExecuteNonQuery()<br /> 'Call fncupdatedb(mycmd.CommandType.Text)<br /> End Sub<br /> End Class<br /> <br /> ==========================<br /> Option Strict On<br /> Option Explicit On<br /> Imports System<br /> Imports System.Data.SqlClient<br /> Imports Microsoft.VisualBasic<br /> <br /> Module Module1<br /> Public mydataset As New DataSet<br /> Public Function fncconnectiondb() As SqlConnection<br /> Dim mycon As String<br /> Dim mycondb As New SqlConnection<br /> Try<br /> mycon = "Data Source=lab322\SQLExpress;Initial Catalog=Northwind;Integrated Security=True"<br /> mycondb.ConnectionString = mycon<br /> If mycondb.State = ConnectionState.Closed Then<br /> mycondb.Open()<br /> End If<br /> Catch ex As Exception<br /> 'MessageBox.Show(ex.ToString)<br /> MsgBox(ex.ToString)<br /> End Try<br /> Return mycondb<br /> End Function<br /> Public Sub xmain()<br /> 'Call fncconnectiondb()<br /> <br /> Dim mycmd As New SqlCommand<br /> mycmd = fnccmddspcust()<br /> mydataset = f11(mydataset, mycmd, "Customers")<br /> mycmd = New SqlCommand<br /> mycmd = fnccmddsppro()<br /> mydataset = f11(mydataset, mycmd, "products")<br /> 'MessageBox.Show(mydataset.Tables.Count.ToString)<br /> ' test<br /> End Sub<br /> End Module<br /> <br /> Option Strict On<br /> Option Explicit On<br /> Imports System<br /> Imports System.Data.SqlClient<br /> Imports Microsoft.VisualBasic<br /> <br /> Public Module qcmd<br /> Public Function fnccmddspcust() As SqlCommand<br /> Dim mycmd As New SqlCommand<br /> mycmd.CommandType = CommandType.Text<br /> mycmd.CommandText = "select * from customers"<br /> mycmd.Connection = fncconnectiondb()<br /> mycmd.CommandTimeout = 0 ' จนกว่าจะได้ข้อมูล<br /> mycmd.ExecuteNonQuery()<br /> Return mycmd<br /> End Function<br /> Public Function fnccmdinsertcust(ByVal p As DataRow) As Integer<br /> Dim mycmd As New SqlCommand<br /> Dim result As Integer<br /> <br /> mycmd.CommandType = CommandType.Text<br /> mycmd.CommandText = "insert into customers (customerid,companyname,contactname,contacttitle,address,city,region,postalcode,country,phone,fax) values ('" & _<br /> p("customerid").ToString & "','" & _<br /> p("companyname").ToString & "','" & _<br /> p("contactname").ToString & "','" & _<br /> p("contacttitle").ToString & "','" & _<br /> p("address").ToString & "','" & _<br /> p("city").ToString & "','" & _<br /> p("region").ToString & "','" & _<br /> p("postalcode").ToString & "','" & _<br /> p("country").ToString & "','" & _<br /> p("phone").ToString & "','" & _<br /> p("fax").ToString & "')"<br /> MessageBox.Show(mycmd.CommandText.ToString)<br /> mycmd.Connection = fncconnectiondb()<br /> result = mycmd.ExecuteNonQuery()<br /> Return result<br /> End Function<br /> Public Function fnccmddsppro() As SqlCommand<br /> Dim mycmd As New SqlCommand<br /> mycmd.CommandType = CommandType.Text<br /> mycmd.CommandText = "select * from products"<br /> mycmd.Connection = fncconnectiondb()<br /> mycmd.CommandTimeout = 0 ' จนกว่าจะได้ข้อมูล<br /> mycmd.ExecuteNonQuery()<br /> Return mycmd<br /> End Function<br /> Public Function fncupdatedb(ByVal x As CommandType, ByVal q As SqlCommand) As SqlCommand<br /> Dim mycmd As New SqlCommand<br /> mycmd.CommandType = CommandType.Text<br /> mycmd.CommandText = x.Text.ToString<br /> mycmd.Connection = fncconnectiondb()<br /> mycmd.CommandTimeout = 0 ' จนกว่าจะได้ข้อมูล<br /> mycmd.ExecuteNonQuery()<br /> Return mycmd<br /> End Function<br /> <br /> End Module<br /> <br /> <br /> Option Strict On<br /> Option Explicit On<br /> Imports System<br /> Imports System.Data.SqlClient<br /> Imports Microsoft.VisualBasic<br /> <br /> Public Module rdb<br /> Public Function f11(ByVal p0 As DataSet, ByVal p1 As SqlCommand, ByVal p2 As String) As DataSet<br /> 'Dim mydataset As New DataSet<br /> Dim m1 As New SqlDataAdapter(p1)<br /> Try<br /> If Not (p0.Tables(p2) Is Nothing) = True Then)<br /> p0.Tables(p2).Rows.Clear())<br /> End If)<br /> m1.Fill(p0, p2)<br /> Catch ex As Exception<br /> MessageBox.Show(ex.ToString)<br /> End Try<br /> Return p0<br /> End Function<br /> <br /> End Module<br><br></td></tr><tr><td align=right bgcolor=black><font color=white><small><b>จากคุณ :</b> บุรินทร์ <a href=mailto:></a><a title='202.29.78.18'>.</a><br> 04:43am (11/07/06)</font></td></tr></table></center>