请问:ADO对象访问数据库的问题
我用ADO对象访问Access数据库,连接上数据库了,将结果集中的数据显示在DataGrid中
Dim cn2 As New ADODB.Connection
Dim rs2 As New ADODB.Recordset
Dim varSource1 as string
cn2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\luntai.mdb "
cn2.Open
varSource1 = "select * from TireData where TireManufacturer= ' " & Text1.Text & " ' and DataNo=1 "
rs2.Open varSource1, cn2, 3, 3
Set DataGrid1.DataSource = rs2
DataGrid1.Visible = True
但是我想选定DataGrid1中一条记录以该记录中得部分字段值为查询条件再次连接数据库从中SELECT数据,前面的数据连接我又不能关掉
Private Sub Command2_click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim varSource As String
If rs2.EOF = True Or rs2.BOF = True Then
MsgBox "请选择数据 ", vbOKOnly, "信息提示 "
End If
var1 = rs2.Fields(0)
var2 = rs2.Fields(1)
var3 = rs2.Fields(2)
var4 = rs2.Fields(3)
var5 = rs2.Fields(4)
var6 = rs2.Fields(5)
var7 = rs2.Fields(6)
var8 = rs2.Fields(7)
varSource = "select * from TireData where TireManufacturer= var1 and TireSize=var2 and TireConstruction=var3 and WheelSize=var4 and Pressure=var5 and RoadSurface=var6 and TestDate=var7 and SampleRate=var8 and TestState=纯侧偏 "
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= " & App.Path & "\luntai.mdb "
cn.Open
rs.CursorLocation = adUseClient
rs.Open varSource, cn, 3, 3
操作的时候提示找不到可安装的ISAM,就是第二次连接不成功是吧,可怎么做才能行呢
写的有点乱,谢谢各位了,急啊
[解决办法]
将cn rs 申明为全局变量,然后再 form_load 里面就把cn 打开了,在你的按钮里面只打开rs。
还有就是你两个cn都连一个mdb 浪费了,只用一个cn就可以了。