① 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