รายละเอียดของการตอบ ::
K.TOR_CHEMISTRY ค่ะ
Code นี้ให้เอาไปใช้หน้า from Function หรือป่าวค่ะ มั้ยค่ะ เเต่ที่ลองคือ ทำหน้า From ที่เเสดง Datagrid ค่ะ ยังง Error เหมือนเดิม
Partial Public Class Database
Public Shared Function GetTableForm(
_SQL As String, strConn As String) As System.Data.DataTable
Dim ds As New System.Data.DataSet()
Dim conn As New System.Data.SqlClient.SqlConnection(strConn)
conn.Open()
Dim adapter As New System.Data.SqlClient.SqlDataAdapter(
_SQL, conn)
adapter.Fill(ds)
Return ds.Tables(0)
End Function
End Class
_SQL นี่คือ SQLSchsvr SQL ของเราใช่มั้ย
Imports System.IO
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
Public Class Frmschsvr
'SERVER
Dim strsvr As String = "Server=192.168.0.14;uid=sa;password=xxxp@ss!;database=production;Connect Timeout=60;"
Dim lotinp As String = ""
Public Function lotinput(ByVal lot3 As String)
lotinp = lot3
End Function
Private Sub SetDATA()
SQLSchsvr = "SELECT dbo.brrec.brec,dbo.brrec.btime FROM dbo.brrec "
SQLSchsvr += "Where "
SQLSchsvr += "dbo.brrec.brec like '" & lotinp & "%' "
DataGridView1.DataSource = Database.GetTableForm(SQLSchsvr , strsvr ) 'เรียกใช้ GetTableForm
DataGridView1.Columns(0).HeaderText = "Barcode"
DataGridView1.Columns(0).Width = 200
DataGridView1.Columns(1).HeaderText = "time"
DataGridView1.Columns(1).Width = 200
End Sub
Private Sub Frmschsvr_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SetDATA()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub
End Class
แบบนี้ป่ะ เราไม่ค่อยเข้าใจ