Question

VB使用ADO对象连接通过SQL语句查询后如何在Datagrid显示

在form1窗体中有datagrid1控件.
程序打开的时候datagrid1用来显示数据库里的数据.
在form1窗体中加了查询语句
sear = "SELECT * FROM 记录 WHERE (姓名= '" & (Text4.Text) & "')"
cnn.Execute sear
现在想在执行完查询后在datagrid1中显示检索出来的语句,点击一个按钮后又重新显示数据库里的数据.

还有一个问题,就是我通过ADO对象连接后添加删除一个数据,如何让datagrid1刷新一下数据,重新显示数据库里的数据.
用的是引用ADO对象而不是ADO控件,请各位前辈注意了.:)
要劳累大家了,先谢过!!
这个问题纠缠了好久了,自己也没弄明白....
数据库早以连接完成,记录集rs1也已了绑定数据库用来显示数据库里的数据.
我想问的是,我现在想再加个查询功能.
同样想显示在datagrid1这个控件里.
这样就得让datagrid1重新显示查询语句的内容

Answer 1

这是一个例子

Dim strSQL As String, strCnn As String
Dim cnn1 As ADODB.Connection
Dim cmdChange As ADODB.Command
Dim rstTitles As ADODB.Recordset

strSQL = "select * from 换向器 "
strCnn = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=D:\vb技巧\换向器参数\换向器参数2版\换向器参数.mdb;Jet OleDb:DataBase Password=5667163"
Set cnn1 = New ADODB.Connection
cnn1.Open strCnn
Set rstTitles = New ADODB.Recordset
rstTitles.CursorLocation = adUseClient
rstTitles.Open strSQL, cnn1, 1, 3
Set DataGrid1.DataSource = rstTitles '记录集对象

你查询后再重新设置datagrid为查询后的数据库记录集嘛，这有什么难理解的。不过你查询以前要先关闭已经打开的记录集，以免出现错误

Answer 2

一个简单的刷新例子
Private Sub Command6_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Combo1.Text = ""
Option1.Value = False
Option2.Value = False
rs1.Close
Dim var As String
var = "select * from 记录"
rs1.Open var, cnn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rs1
需要先关闭

Answer 3

要数据绑定啊