Question

VB实现模糊查询及结果显示

我们需要做一个图书查询系统，需要按作者名字模糊查询我知道LIKE的那个语句，问题是1.现在该怎么实现从数据库里模糊查询？ 2.查询结果怎么显示？希望大家帮帮忙，先谢谢了 查询是用like语句sqlStr="select * from 表 where 作者姓名 like '%" & text1.text & "%'" 查询完之后用datagrid控件显示，关键是怎么写语句使得查询结果显示在datagrid里我用的ADO连接，在查询的窗口里需不需要在写一次connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _ "data source=book.mdb"这个语句，大家帮帮忙，老师不负责任，只有来求大家了

Answer 1

问题1： like可以写成条件查询，好像差不多吧，下面的代码就是的，问题2：rs打开的就是查询的结果，再用datagrid显示rs就OK了！里面最好加个判断！至于连接和记录集的放到通用声明里面就可以。回答得很清楚了........Set Rs = New ADODB.Recordset
strsql = "select 时间,学号,姓名,专业班级,学科,分数 from 成绩表 where 姓名='" & Text1.Text & "' and 专业班级='" & Combo1.Text & "'"
Rs.Open strsql, Conn, 2, 1
If Rs.RecordCount = 0 Then
MsgBox "没有此学生的记录，请重试！"
Else
Set Me.DataGrid1.DataSource = Rs
End If

Answer 2

1、定义一个全局变量 '全局数据库连接串 Public Const connectionstring as string = "provider=Microsoft.Jet.oledb.4.0;data source=book.mdb" Public CONN As ADODB.Connection'数据库连接2、在启动程序的Sub Main模块中增加链接数据库代码： Set CONN = New ADODB.Connection
CONN.Open connectionstring ‘打开数据库链接3、显示数据 在按钮Click中增加代码如下： Dim strSQL as String Dim rstADO as new ADODB.Recordset '定义数据集 strSQL="select * from 表 where 作者姓名 like '%" & text1.text & "%'" " Set rstADO = New ADODB.Recordset
rstADO.CursorLocation = adUseClient
rstADO.Open strSQL, CONN, adOpenKeyset, adLockReadOnly If rstADO.RecordCount > 0 Then
Set DataGrid1.DataSource =rstADO
Else
Set DataGrid1.DataSource =Nothing End If

Answer 3

这种数据源定义你可以定位公用的，这样就在程序运行的时候连接一次，到程序关闭的时候释放掉就行了。每次操作数据库都要连接一次，多累啊。呵呵~

Answer 4

用联合查询把所有=号都换成like就没问题了,到时不管在哪儿个位置只要输入含有的信息都会查询出来多好

Answer 5

呵呵,刚刚应该是帮你同学做的这个系统,用代码连接.