① vb如何设置同时操作多个数据库
我教你怎么跨数据库（跨服务器都可以）操作多数据表：
用ACCESS，就用他的一个ODBC功能做桥接，在VB中连接ACCESS数据库照常
我就给个ADO连接ACCESS连接sql多数据库连接表联合查询三个数据库数据表的例子：
Private Sub 控件名称_事件过程(变量)
Dim A, B, C as String
'-----------------定义变量来存字符串
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\ACCESS数据库.后缀"
'-----------------连接ACCESS数据库照常
A="Select 字段1 AS 名称1, 字段2 as 名称2 From 表1 IN [ODBC] [ODBC;Server=SQL Server;uid=用户名;PWD=密码;Server=服务器IP;DataBase=数据库名1] Where 字段3 LIKE %'5555'%"
B="Select 字段8 AS 名称1, 字段9 as 名称2 From 表2 IN [ODBC] [ODBC;Server=SQL Server;uid=2用户名;PWD=密码;Server=服务器IP;DataBase=数据库名2]"
C="Select 字段3 AS 名称1, 字段4 as 名称2 From 表3 IN [ODBC] [ODBC;Server=SQL Server;uid=3用户名;PWD=密码;Server=服务器IP;DataBase=数据库名3]"
Adodc1.recordsoure= A & "Unoin" & B & "Unoin" & C
Adodc1.Refresh
Set 电子表格.DataSource=Adodc1
End Sub
② 用vb，怎么将两个SQL数据库连接起来
用两个adodc或adodb分别连接两个数据库，然后就可以交换数据了。
③ 如何将VB和SQL数据库进行连接
Dim
oleDbConnection1
As
OleDb.OleDbConnection
Dim
strConnect
As
Sting="Provider=SQLOLEDB；Persist
Security
Info=False；
Data
Source=服务器名；Initial
Catalog=数据库名；User
ID=sa；Password=；"
oleDbConnection1=New
System.Data.OleDb.OleDbConnection（strConnect）
填上的服务器名
和数据库名
用户名
和密码
后用这个语句可以进行连接
④ 用vb连接access数据库以后，如何一次性执行多条sql语句
使用ACCESS查询对象是无法一次运行多个
SQL语句
的，但是通过ACCESS
VBA代码可以实现一次运行多个SQL语句。下面是具体实现方案;
1)新建一个ACCESS窗体，窗体添加一个命令按钮；
2）编写按钮单击事件过程
Private
Sub
Command1_Click()Dim
strSql
as
stringstrSQL="Update
Policy
SET
LatestDueDate=Year(Date())
&
'-'
&
Format(PolicyDate,'mm-dd')"
DoCmd.RunSql
strSQL
'运行第一个更新语句strSQL="UPDATE
Policy
SET
LatestDueDate=
DateAdd('yyyy',1,LatestDueDate)
WHERE
(((Month(Date())-Month(LatestDueDate))
>
6)
and(PaymentMode='H'))"
DoCmd.RunSql
strSQL
'运行第二个更新语句
End
Sub
跟着点击该命令按钮就可以一次执行两条语句了。
⑤ VB中怎么将两个sql的表联系起来，比如修改其中一个表，另外一个表中相同字段的数据也随之改变！求教！
这个嘛, 有以下几种解决方案:
1. 在 VB 里面， 写一个方法，执行 2个 UPDATE 语句， 更新 2张表。
2. 如果 VB 里面， 不高兴 调用 2次 数据库， 那么 可以数据库那里，写一个存储过程更新2张表， VB 调用一次存储过程就好。
3. 假如你的 VB 里面， 是通过控件来修改数据库数据的， 也就是 VB 里面不写 任何 SQL。 那么你恐怕要在数据库那里， 写一个触发器来做这个事情了... 也就是 当 A 表的某列数据发生更新时， 去更新 B 表的数据。
⑥ 如何用VB同时打开两个SQL数据库
给个范例你：
dim conn
dim rs1
dim rs2
set conn = new adodb.connection
conn.open "连接字符串"
set rs1 = conn.execute("select * from 表1")
set rs2 = conn.execute("select * from 表2")
while not rs1.eof
rs2.AddNew
rs2(1).value = rs1(1).value
rs2(2).value = rs1(2).value
.
.
.
rs2.Update
rs1.MoveNext
wend
rs1.Close
rs2.Close
conn.Close
set rs1 = nothing
set rs2 = nothing
set conn = nothing
⑦ VB+MySQL同时执行两条SQL语句。
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strCn As String
Dim SHA1 As String
Dim db_host As String
Dim db_user As String
Dim db_pass As String
Dim db_data As String
Dim sql As String
db_host = "localhost"
db_user = "root"
db_pass = "2009"
db_data = "realmd"
strCn = "DRIVER={MySQL ODBC 3.51 Driver};" & _
"SERVER=" & db_host & ";" & _
"DATABASE=" & db_data & ";" & _
"UID=" & db_user & ";PWD=" & db_pass & ";" & _
"OPTION=3;stmt=SET NAMES GB2312"
cn.Open strCn
cn.CursorLocation = adUseClient
'写入之前加判断，如果存在就退出
Name = Trim(Text1.Text)
sql = "select username from Account where username='" & Name & "'"
rs.Open sql, cn, 1, 1
If rs.RecordCount > 0 Then
Label5.Caption = "账号已存在"
rs.close
response.end
Else
Label5.Caption = "帐号可以使用"
End If
rs.Close
'判断结束
sql = "INSERT INTO account (username, sha_pass_hash, email, expansion) VALUES ( '" & Text1.Text & " ', SHA1('Text2.Text') , '" & Text4.Text & " ','" & 2 & " ') "
rs.Open sql, cn, 1, 3
MsgBox "注册成功"
rs.Close
End Sub