同時連接兩資料庫問題

Public PublicStr As String

Public PublicStr1 As String

Private con As New ADODB.Connection

Private rs As New ADODB.Recordset

Private rs1 As New ADODB.Recordset

Dim str As String



Public Sub Main()

    '附加資料庫

    On Error Resume Next

    con.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=sa"

    con.Open     '打開資料庫連接

    Set rs = New ADODB.Recordset  '開始附加資料庫

    str = "EXEC sp_attach_db @dbname = N'xi2009', @filename1 = N'" + App.Path + "\DataSource\xi9_Data.MDF" + "', @filename2 = N'" + App.Path + "\DataSource\xi2009_Log.LDF" + "'"

    Set rs = con.Execute(str)

    con.Close  '關閉資料庫連接

    PublicStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=sa;Initial Catalog=xi2009;Data Source=user-20150115tu"

    

    con.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=sa"

    con.Open     '打開資料庫連接

    Set rs1 = New ADODB.Recordset  '開始附加資料庫

    str = "EXEC sp_attach_db @dbname = N'xi2016', @filename1 = N'" + App.Path + "\DataSource\xi2016_Data.MDF" + "', @filename2 = N'" + App.Path + "\DataSource\xi2016_Log.LDF" + "'"

    Set rs1 = con.Execute(str)

    con.Close  '關閉資料庫連接

    PublicStr1 = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=sa;Initial Catalog=xi2016;Data Source=user-20150115tu"

    Frm_star.Show

End Sub



Private Sub Command1_Click()

  Adodc1.ConnectionString = PublicStr1

  Adodc1.RecordSource = "delete from WY_JCXX"

  Adodc1.Refresh

  Adodc1.ConnectionString = PublicStr

  Adodc1.RecordSource = "insert into xi2016..WY_JCXX select 物料編碼,物料名稱,規格型號,提前期 from xi2009..XT_TC_Material where Left(物料編碼,1)=1 " 

  Adodc1.Refresh

 Set DataGrid1.DataSource = Adodc1

  DataGrid1.Refresh

  StatusBar1.SimpleText = DataGrid1.ApproxCount

End Sub

uj5u.com熱心網友回復：

uj5u.com熱心網友回復：

Public PublicStr0 As String

Public PublicStr1 As String

Private cn0 As New ADODB.Connection

Private cn1 As New ADODB.Connection

Private rs0 As New ADODB.Recordset

Private rs1 As New ADODB.Recordset

Dim str As String



Public Sub Main()

    '附加資料庫

    'On Error Resume Next

    cn0.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=sa"

    cn0.Open     '打開資料庫連接

    str = "EXEC sp_attach_db @dbname = N'xi2009', @filename1 = N'" + App.Path + "\DataSource\xi9_Data.MDF" + "', @filename2 = N'" + App.Path + "\DataSource\xi2009_Log.LDF" + "'"

    Set rs0 = cn0.Execute(str)

    PublicStr0 = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=sa;Initial Catalog=xi2009;Data Source=user-20150115tu"



    cn1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=sa"

    cn1.Open     '打開資料庫連接

    str = "EXEC sp_attach_db @dbname = N'xi2016', @filename1 = N'" + App.Path + "\DataSource\xi2016_Data.MDF" + "', @filename2 = N'" + App.Path + "\DataSource\xi2016_Log.LDF" + "'"

    Set rs1 = cn1.Execute(str)

    PublicStr1 = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=sa;Initial Catalog=xi2016;Data Source=user-20150115tu"

    Frm_star.Show

End Sub

Private Sub Form_Unload(Cancel As Integer)

    cn0.Close

    cn1.Close

End Sub

Private Sub Command1_Click()

    Adodc1.ConnectionString = PublicStr1

    Adodc1.RecordSource = "delete from WY_JCXX"

    Adodc1.Refresh

    Adodc1.ConnectionString = PublicStr0

    Adodc1.RecordSource = "insert into xi2016..WY_JCXX select 物料編碼,物料名稱,規格型號,提前期 from xi2009..XT_TC_Material where Left(物料編碼,1)=1 "

    Adodc1.Refresh

    Set DataGrid1.DataSource = Adodc1

    DataGrid1.Refresh

    StatusBar1.SimpleText = DataGrid1.ApproxCount

End Sub

標籤：數據庫(包含打印 安裝 報表)

上一篇：往OFFICE2003中的WORD插入圖片遇到問題

下一篇：vb.net chart 動態描繪曲線