Dim Connect As SqlConnection()
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' create connection using ODBC connection'
Connect = New SqlConnection("Server =(local);database=ALASEMXT;integrated security=true")
' query to Database'
Dim sql As String = "SELECT * FROM as_products"
' use dataadapter'
Dim da As New SqlDataAdapter(sql, Connect)
' use dataset'
Dim ds As New DataSet
' open connection'
Connect.Open()
da.Fill(ds, "as_products")
' set datasource and datamember for a datagridview'
DataGridView1.DataSource = ds
DataGridView1.DataMember = "as_products"
' close dataadapter and connection'
da.Dispose()
Connect.Close()
End Sub
Private Sub DataGridView1_EditingControlShowing(sender As Object, e As DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing
Dim tb As New TextBox
Dim dt As New DataTable
Dim cmd As New SqlCommand
Connect.Open()
cmd.Connection = Connect
cmd.CommandText = "SELECT productName from as_products"
Dim da As New SqlDataAdapter
da.SelectCommand = cmd
da.Fill(dt)
Dim r As DataRow
For Each r In dt.Rows
If TypeOf e.Control Is TextBox Then
tb = e.Control
tb.AutoCompleteCustomSource.Add(r.Item("productName").ToString)
tb.AutoCompleteMode = AutoCompleteMode.Suggest
tb.AutoCompleteSource = AutoCompleteSource.CustomSource
End If
Next
da.Dispose()
cmd.Dispose()
Connect.Close()
End Sub