VB中多sql数据库的问题!

Question

刚学vb不久,正试着开发一个客户资料管理系统,今天遇到难题,特请教各位.
在客户管理系统中,我创建了二个表,一个是admininfo(用户信息表),一个是productinfo(产品信息表),userinfo用于保存管理员的用户名和密码,以便以后修改,productinfo是客户购买产品的清单,我建了一个模块,如下
Public con As ADODB.Connection
Public rec As ADODB.Recordset
Sub main()
Set con = New ADODB.Connection
Set rec = New ADODB.Recordset
con.ConnectionString = "Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=sa;Initial Catalog=data;Data Source=."
con.CursorLocation = adUseClient
con.Open
rec.Source = "admininfo"
rec.Open , con, adOpenDynamic, adLockOptimisticForm1.Show
End Sub
现在这边只连接了一个表,我想再连接一个新的productinfo,应该如何连接,还是在下面加吗?请各位大虾给点代码!

Answer 1

再定义一个RECORDSET不行么？
dim rs as new adodb.recordset
rs.open "select * from productinfo ",con,adOpenDynamic, adLockOptimistic你如果还想用REC打开，那么必须先把他原来的关闭后再连接
rec.close
rec.open "select * from productinfo ",con,adOpenDynamic, adLockOptimistic

Answer 2

Public con As ADODB.Connection
Public rec As ADODB.Recordset
Public strname As String
Public rs As ADODB.Recordset
Sub main()
Set con = New ADODB.Connection
Set rec = New ADODB.Recordset
Set rs = New ADODB.Recordset
con.ConnectionString = "Provider=SQLOLEDB.1;Password=jiangsusheng;Persist Security Info=True;User ID=sa;Initial Catalog=data;Data Source=."
con.CursorLocation = adUseClient
con.Open
rec.Source = "userinfo"
'rec.Source = "product"
rec.Open , con, adOpenDynamic, adLockOptimistic
rs.Open , con, adOpenDynamic, adLockOptimistic
Form1.Show
End Sub我直接在这个里面加了,我一启动他说"没有为命令对象设置命令!"

Answer 3

你的
rec.Open , con, adOpenDynamic, adLockOptimistic
rs.Open , con, adOpenDynamic, adLockOptimistic
这两个语句好像有点问题.
好像应该改成
rec.Open "Select 语句", con, adOpenDynamic, adLockOptimistic
rs.Open "Select 语句", con, adOpenDynamic, adLockOptimistic

Answer 4

还有把这句注掉rec.Source = "userinfo"

Answer 5

rec.source去掉的话,我的userinfo不好验证了呀

Answer 6

严重同意,你为什么要那样写recordset 对像,下面这样写是很正确的写法.
rec.Open "Select 语句", con, adOpenDynamic, adLockOptimistic
rs.Open "Select 语句", con, adOpenDynamic, adLockOptimistic

Answer 7

你把你要实现的功能说一下，或者可以不用这种方法。还有应该用
rec.Open "Select 语句", con, adOpenDynamic, adLockOptimistic