Private Sub txtidp_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtidp.KeyDown
If txtidp.Text <> "" Then
If (e.KeyCode = Keys.Enter) Then 'ถ้ากดปุ่ม Enter
If txtip.Text = "" Then
MessageBox.Show("กรุณาป้อน IP address ก่อน !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
txtip.Focus()
Exit Sub
End If
Dim sqlidprogram As String = ""
'เลือกข้อมูลจากตาราง IDprogram
sqlidprogram = "SELECT ProgID,program"
sqlidprogram &= " FROM IDprogram"
sqlidprogram &= " WHERE (ProgID = '" & txtidp.Text & "')"
' With conn
' If .State = ConnectionState.Open Then .Close()
' .ConnectionString = sqlidprogram
' .Open()
' End With
If isfIDprogram = True Then 'ถ้ามีข้อมูลเดิมอยู่
ds.Tables("id").Clear() 'ให้ล้างข้อมูลเก่าออกก่อนนะ
End If
da.SelectCommand.CommandText = sqlidprogram 'ให้ออปเจ็ค da ใช้ชุดคำสั่ง sql ที่อยู่ในตัวแปร sqlidprogram <<---------ติดบรรทัดนี้ครับขึ้นแบบนี้ครับ Object reference not set to an instance of an object.
da.Fill(ds, "id") 'ds ตั้งชื่อว่า id
If ds.Tables("id").Rows.Count <> 0 Then
isfIDprogram = True
Load balance : Server 01
