vb胡数据库怎么同时打开2个表

VB中如何在一个数据库中打开两个表，同时可以操作两个表的内容。可以读写。怎么做谢谢在线等~

建立两个不同名的数据集就OK了啊！
如下：

Set Rs1 = Server.CreateObject("ADODB.Recordset")
Set Rs2 = Server.CreateObject("ADODB.Recordset")
sql1 = "select * From [表一]"
sql2 = "select * From [表二]"
Rs1.Open sql1,conn,1,1
Rs2.Open sql2,conn,1,1
这样就同时打开两个表了啊！然后就可以操作了！
注意：conn为数据连接对像,Rs1和Rs2为数据集，用以保存（或代表访问对像）[表一]和[表二]中的部分或全部记录。1，1表示以只读方式打开。1，3表示可读、写、改。更多锁类型在百度搜吧。

在窗体中拖放一个Adodc控件，你是要做一个事，查出两个表中的想要的数值，然后核对他们是否是一样的对吧？那我做个简单例子，在窗体上放个文本框来找你要的数值，然后用消息提示方法来提示你是否匹配，仅仅作一个参考，这么写代码：
Private Sub 按钮名称_Click()
Adodc1.connectionstring="Driver=SQL Server;Server=服务器名称;UID=数据库用户名;PWD=数据库密码;DataBase=数据库名称"
Adodc1.RecordSource="Select * From a Inner Join b on a.要匹配的字段=b.要匹配的字段 Where 指定要筛选的字段='"+Text1+"'"
Adodc1.Refresh
If Adodc1.RecordSet("表中字段名称")=Null Then
MSGBOX "查询结果不一致",vbOK,"无匹配消息"
Else
MSGBOX "有相同结果是： "&Adodc1.RecordSet("要匹配的字段名"),vbok,"有匹配消息"
End Sub
这样写不知道对你有没有帮助，我不知道你是要做个什么事情，但提供一个思路，就是匹配查询两个表有条件指定的记录集

你会连接单个表的话连接两个表就很简单，如果你连连接单个表都不会的话还是回去看看vb编程入门之类的书。
可以这样连接 举个例子
dim sql_A,sql_B,rs_A,rs_B,loop_A,loop_B
sql_A="查询语句自己写"
rs_A=server.CreateObject("adodb.recordset") '初始化记录集
open sql_A,conn,3,3 'conn是什么你懂的,参数选1,1还是3,3或者其他的根据需求自己选
if not(rs_A.bof and rs_A.eof) then '判断记录集是否为空
for loop_A=0 to rs_A.recordcount-1 '循环访问记录、直到末尾，根据需求看是否要循环
'+++++++++++++++++下面是第二层的表
sql_B="查询语句自己写"
rs_B=server.CreateObject("adodb.recordset")
open sql_B,conn,3,3
if not(rs_B.bof and rs_B.eof) then
for loop_B=0 to rs_B.recordcount-1
'这里就是你要进行的操作，读取或者修改字段，修改的时候加rs_B.update()就是了，还是给个例子吧
rs_B("XXX")=rs_A("XXX") '将表A的XXX字段的值赋给表BXXX字段、、、、、
rs_B.update() '提交
rs_B.movenext
next
end if
rs_B.close
'----------------------------
rs_A.movenext
next
end if
rs_A.close

唉，不给点分有几个人会给你答啊，我今天无聊、破例了！不懂再百度HI我～

---

河东区15342221273： vb胡数据库怎么同时打开2个表 - ？
达奚戚丙氧： 你会连接单个表的话连接两个表就很简单,如果你连连接单个表都不会的话还是回去看看vb编程入门之类的书. 可以这样连接 举个例子 dim sql_A,sql_B,rs_A,rs_B,loop_A,loop_B sql_A=＂查询语句自己写＂ rs_A=server.CreateObject(＂adodb....

河东区15342221273： VB中如何在一个数据库中打开两个表,同时可以操作两个表的内容.可以读写.怎么做谢谢在线等 - ？
达奚戚丙氧： 建立两个不同名的数据集就OK了啊!如下:Set Rs1 = Server.CreateObject(＂ADODB.Recordset＂) Set Rs2 = Server.CreateObject(＂ADODB.Recordset＂) sql1 = ＂select * From [表一]＂ sql2 = ＂select * From [表二]＂ Rs1.Open sql1,conn,1,1 ...

河东区15342221273： 如何用VB同时打开两个SQL数据库 - ？
达奚戚丙氧： 给个范例你: dim conn dim rs1 dim rs2set conn = new adodb.connection conn.open ＂连接字符串＂set rs1 = conn.execute(＂select * from 表1＂) set rs2 = conn.execute(＂select * from 表2＂)while not rs1.eofrs2.AddNewrs2(1).value = rs1(...

河东区15342221273： vb datagrid同时显示两个表中的数据 - ？
达奚戚丙氧： 你在窗体里点中DataGrid1控件,在右边将列出属性名,找到DataSource属性,把里面的内容删除了就是了

河东区15342221273： vb中怎么打开1个Access数据库中的多个表?？
达奚戚丙氧： 新定义就行了, dim rs_1 as new adodb.recordset dim sql1 as string sql1 =＂select * form XXX＂ rs_1.open sql1,conn,3,3 要再打开就定义rs_2 sql2重复上述代码就可

河东区15342221273： vb如何用代码实现同时打开两个access数据库并进行数据读写. - ？
达奚戚丙氧： 最简单的不是用VB6,而是在Access2003中导出为Excel格式,你可以看下Access2003的VBA的导出代码,非常简单

河东区15342221273： VB中如何调用SQL一个数据库中的多个表 - ？
达奚戚丙氧： 如果这些表不是同一时刻使用,那么你可以用同一个ADODC控件,用完一个表后,重新设置其RecordSource属性,以获得不同的表.如果这些表需要在同一时刻使用,那么你可以使用多个ADODC控件.只要内存资源足够,象使用多个按钮、文本框等控件一样,没有限制.

河东区15342221273： VB用ADO对象同时修改两张表 - ？
达奚戚丙氧： 先打开其中的一张表,修改完后把这表关闭,然后再打开另一张表,例如:myRS.Open ＂select * from 表1 where 类别 ='＂ & Combo9.Text & ＂＂, con, adOpenKeyset, adLockPessimistic set myrs=nothing '清空myRS的内容 myRS.Open ＂select * from 表2 where 类别 ='＂ & Combo9.Text & ＂＂, con, adOpenKeyset, adLockPessimistic '打开另一张表

河东区15342221273： vb中怎样将同一个数据库中的两个不同的表进行操作 - ？
达奚戚丙氧： Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset conn.ConnectionString = ＂Provider=Microsoft.Jet.OLEDB.4.0;Data Source=＂ & App.Path & ＂\数据库地址;Persist Security Info=False＂ conn.Open sql=＂select * ...

河东区15342221273： 如何在VB6.0中同时调用两个表格啊? - ？
达奚戚丙氧： Private Sub Form_Load() DIM SQL AS STRING Adodc1.ConnectionString = ＂Provider=Microsof礌范辟既转焕辨唯玻沥t.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False＂ SQL = ＂select cs.编号,cs.姓名,sl.住址 from 表1 ...