急急急急急急急急急急。大家好，一个毕业设计，要做一个vb（6.0）软件，需要一种查询技术，但不会做。

Question

大家好，我的毕业设计是用vb6.0设计车速计算软件
计算部分和数据库部分我都做好了，使用的是ado方式连接，令我困惑的是：
我想在一个文本框里输入车辆的型号，其能够自动完成相关型号的查询显示，（就象google那样，你在搜索对话框里输入搜索关键词的时候，他的下面能够自动显示若干行相关的关键词），并且在另一个文本框里显示该型号车辆的整车质量。
希望帅哥晾姐们能帮忙解决一下，发个相关的代码来，不胜感激。数据库是关于车辆型号和其相应质量的，很大，有一万多条记录。如果您感兴趣，我可以把设计好的部分发给您。共同改进。

Answer 1

主要关键是构建动态查询语句不要绑定整个表，而应该使用adcmdtext。
查询语句一般为
cartype="这个变量设置需要查询的参数，即你上面说的车辆型号"
ssql＝"select * from yourtable where cartype="+cartype
或类似的方式
另外，一万多条记录，即使是对文本型的数据源来说，也是很少的数目。

Answer 2

呵呵 谢谢 已经用另一种方式解决了 我毕业设计vb是现学的 只好现学现卖 
下面是我从一位帅哥哪看的代码，然后又自己修改的。能够实现文本框模糊查询的功能
    用CreateObject函数来创建ADO对象做一个程序。里面有两种查询的方法，大部分的中文都是变量。程序中无需引用ADO类也无须加载ADO控件，可以直接使用。就像ASP一样的程序。  
   
 Private Sub Text15_change()
          Dim 文件地址     As String, 查询语句       As String
          Dim 连接对象     As Object, 数据对象       As Object
          
          If Text15.Text = "" Then
                MsgBox "请输入要查找的产品型号", vbOKOnly + vbInformation, "查询"
                Text15.SetFocus
                Exit Sub
          End If
          
          
          文件地址 = "D:\车俩个查询系统2003.mdb"
          
          '以下为模糊查询语句
          Dim 临时字符  As String
    
          查询语句 = "Select   *   From   车辆查询系统   Where"
          
          For X = 1 To Len(Text15.Text)
                  临时字符 = Left(Text15.Text, X)
                  临时字符 = Right(临时字符, 1)
                  If X = 1 Then
                          查询语句 = 查询语句 & "   产品型号   LIKE   '%" & 临时字符 & "%'"
                  Else
                          查询语句 = 查询语句 & "   AND   产品型号   LIKE   '%" & 临时字符 & "%'"
                  End If
          Next X
          '-----------------------------------------------------------------
            
          Set 连接对象 = CreateObject("ADODB.Connection")
          Set 数据对象 = CreateObject("ADODB.Recordset")
          连接对象.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\车辆查询系统2003.mdb;Persist Security Info=False"
          数据对象.Open 查询语句, 连接对象, 3
                          If 数据对象.RecordCount > 0 Then
                                
                                Text1.Text = 数据对象!整备质量
                          Else
                                MsgBox "请输入要查找的产品型号", vbOKOnly + vbInformation, "查询"
                                txtqry.SetFocus
                                Exit Sub
                          End If
                  数据对象.Close
          连接对象.CloseEnd Sub

Answer 3

另外，我想问一下，如果想在文本框里输入车辆型号，希望采用模糊查询技术，在datagrid或者msflexid中显示相应的整备质量数据，该怎么办呢？谢谢
我最近刚用这个论坛，有很多东西不是很清楚，做的不妥之处还请见谅。
呵呵 再次感谢

Answer 4

把datagrid的数据源绑定到你的ado recordset。

Answer 5

用数据库查询语句撒
 SQL语句  
ACCSEE的 查询和 SQL查询语句略有不同 你去百度搜 多的很

Answer 6

www.skyrising.com 天空飞翔网站 欢迎参观学习

Answer 7

在TEXT的Change事件中不断的查询数据库来显示数据，
不提倡。建议看看类似IE网页的自动填充提示功能。