Dim use As String
Dim passs As String
use = Class1.uss
passs = Class1.pass
Dim connectionString As String = "Server=PONGWICS2014-PC;UID=" & use & ";PASSWORD=" & passs & ";Database=Top_CustomerEntry;Connect Timeout=200; pooling='true'; Max Pool Size=200"
Dim connection As New SqlConnection(connectionString)
connection.Open()
SerachGrid("select * from AreaMaster where AreaID like '%" & ComboBox1.Text & "%'")
End Sub
ขอบคุณครับ
Tag : .NET, MySQL, Ms SQL Server 2008, VB.NET, VS 2008 (.NET 3.x), VS 2010 (.NET 4.x)
Private Sub dataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs)
textBox2.Text = dataGridView1.SelectedRows(0).Cells(0).Value.ToString()
textBox3.Text = dataGridView1.SelectedRows(0).Cells(1).Value.ToString()
textBox4.Text = dataGridView1.SelectedRows(0).Cells(2).Value.ToString()
textBox5.Text = dataGridView1.SelectedRows(0).Cells(3).Value.ToString()
End Sub