VB中..使用文字輸入方塊加資料庫完成”自動完成功能”

在藍色小舖找到的解決方法
原PO網址

使用北風資料庫的Customers資料表的Customerid欄位做為
自動完成的欄位,在表單裡放入一個TextBox,程式如下:

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        TextBox1.AutoCompleteMode = AutoCompleteMode.SuggestAppend
        TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource

        Dim cn As New SqlConnection("server=db-machine;database=northwind;user id=sa;password=sa")
        Dim cmd As New SqlCommand("select customerid from customers", cn)

        cn.Open()
        Dim reader As SqlDataReader = cmd.ExecuteReader

        Do While reader.Read
            TextBox1.AutoCompleteCustomSource.Add(reader(0))
        Loop

        reader.Close()
        cmd.Dispose()
    End Sub