dim rst as new recordset rst.open "select * from 表名 where 字段名 like" & "'" & "%字符 set setDataGrid=rst
三楼的 可以不用"dbgrid1.refresh" 只要刷新 Adodc就行了.
SET TDGgrid.datasource = RS
'如查找所有含有yoki的记录 '引用:Microsoft ActiveX Data Objects 2.x Library '2.x是版本号 Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim Sql As Stringcn.Open "Provider=SQLOLEDB;Data Source=服务器名;User Id=sa;PassWord=****;Initial Catalog=数据库名" 'ACCESS: Sql = "select * from [Table1 where col1 like '*yoki*'" 'SQLSERVER: Sql = "select * from [Table1] where col1 like '%yoki%'" rs.Open Sql, cn Set datagrid1.DataSource = rs rs.Close Set rs = Nothing cn.Close Set cn = Nothing
怎么把结果显示在DBGRID中这属于基础的东西了!!
设置recordset吧,我从来不用动态绑定的!!
SQLSERVER: select * from [TableName] where FldName like '%A%'
rs.CursorLocation = adUseClient '设置为客户端
Set DataGrid1.DataSource = rs
rs.open strsql,conn,1,1没什么说的了.为什么高手总有时间上网?
Adodc1.RecordSource = "select * from 表名 where 字段名 like" & "'" & "%字符名%" & "'"
Adodc1.Refresh
dbgrid1.refresh
其中事前要设置好ADODC的数据库绑字.
还有DBGRID1 要与ADODC绑定.
rst.open "select * from 表名 where 字段名 like" & "'" & "%字符
set setDataGrid=rst
三楼的 可以不用"dbgrid1.refresh" 只要刷新 Adodc就行了.
'引用:Microsoft ActiveX Data Objects 2.x Library
'2.x是版本号
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim Sql As Stringcn.Open "Provider=SQLOLEDB;Data Source=服务器名;User Id=sa;PassWord=****;Initial Catalog=数据库名"
'ACCESS:
Sql = "select * from [Table1 where col1 like '*yoki*'"
'SQLSERVER:
Sql = "select * from [Table1] where col1 like '%yoki%'"
rs.Open Sql, cn
Set datagrid1.DataSource = rs
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
1 模糊查询用like 关键字
2 把数据显示到dataGrid控件时,用动态绑定set DataGrid1.datasource=recordSet