如何将数据库值设置为Vb .Net中文本框的自动完成引用 [英] How Do I Set Database value Into An Autocomplete Reference Of A Text Box In Vb .Net

问题描述

Hai朋友我已将表单连接到数据库。

我需要在文本框中填写数据库值的自动完成参考。

请帮帮我，

问候，

Sissy Ram

解决方案

设置文本框属性：



AutoCompleteMode = SuggestAppend

AutoCompleteSource = CustomSource





现在使用此代码



表单加载事件

 私有  Sub  Form4_Load（ ByVal  sender 正如系统。对象， ByVal  e  As  System.EventArgs）句柄  MyBase  .Load 
 fill_data（）
 结束  Sub  
 
  Sub  fill_data（）
  Dim  ds  As  新 DataSet 
  Dim  i 作为 整数 =  0  
 ds = selectdata（& quot; select * from mst_members order by member_name& quot;）
 
 如果 ds.Tables（ 0 ）。Rows.Count& gt;  0  然后 
  （ i& lt;& gt; ds.Tables（ 0 ）。Rows.Count）
  Me .TextBox1.AutoCompleteCustomSource.Add(ds.Tables( 0 ）。行（i）.Item（& quot; member_name& quot;）。ToString） 
i = i +  1  
 结束 虽然 
 结束 如果 
i =  0  
 ds.Clear（）
 结束  Sub < /跨度> 

Hai friends i has connected my form to database.
And i need to fill the auto complete reference with database values in a textbox.
Please help me,
Regards,
Sissy Ram

解决方案

Set Textbox Properties:

AutoCompleteMode = SuggestAppend
AutoCompleteSource = CustomSource


Now use this code

On Form Load Event

Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        fill_data()
    End Sub

Sub fill_data()
        Dim ds As New DataSet
        Dim i As Integer = 0
        ds = selectdata("Select * from mst_members order by member_name")

        If ds.Tables(0).Rows.Count > 0 Then
            While (i <> ds.Tables(0).Rows.Count)
                Me.TextBox1.AutoCompleteCustomSource.Add(ds.Tables(0).Rows(i).Item("member_name").ToString)
                i = i + 1
            End While
        End If
        i = 0
        ds.Clear()
    End Sub

这篇关于如何将数据库值设置为Vb .Net中文本框的自动完成引用的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！