Sub ShowData()
Dim str As String = ""
HNAbout = S_HN_About.Trim sql = "ดึงข้อมูลมา โดยใช้ join"
da = New SqlDataAdapter(sql, cn)
DT = New DataTable
da.Fill(DT)
If DT.Rows.Count > 0 Then
For i As Integer = 0 To DT.Rows.Count - 1
str = DT.Rows(i)("p_no")
textbox1.Text = DT.Rows(0).Item("p_no")
textbox2.Text = DT.Rows(0).Item("p_name ")
textbox3.Text = DT.Rows(0).Item("address ")
textbox4.Text = DT.Rows(0).Item("inven_id ")
Next
Else
End If
End Sub 'สำหรับโชว์ใน textbox โดยตรง
Sub ShowData() sql = "ดึงข้อมูลมา โดยใช้ join"
da = New SqlDataAdapter(Sql, cn)
dt = New DataTable
da.Fill(dt)
If dt.Rows.Count > 0 Then
DGV1.DataSource = dt
Else
MessageBox.Show("NOT DATA!!", "DATA", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub
Private Sub Textbox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Textbox1.KeyDown
If e.KeyCode = Keys.Enter Then
คำสั่งที่ต้องการ หรือจะใส่ sql ดึงข้อมูลก็ได้นะคับ
Load balance : Server 02
