如何在vb.net多個數據庫

-1

是否有可能到多個數據庫連接到一個程序如何在vb.net多個數據庫

---------------------------- 
Using con As New Odbc.OdbcConnection 
     con.ConnectionString = 
       "Driver={Mysql odbc 3.51 Driver};Server=192.168.0.155;" & 
       "DataBase=DB1;uid=root;pwd=gnsa;port=3306" 
       con.Open() 
     Using cmd As New Odbc.OdbcCommand 
      cmd.Connection = con 
      cmd.CommandText = 
      "INSERT INTO [;DataBase=DB2;uid=root;pwd=gnsa;port=3306].[transfer_file] SELECT * FROM [DB1].[sta_trn_tfoliotran]" 

      Dim rdr As Odbc.OdbcDataReader = cmd.ExecuteReader 
      Do While rdr.Read 
       Console.WriteLine(rdr("DB1_Text") & " | " & rdr("DB2_Text")) 
      Loop 
     End Using 
     con.Close() 
    End Using 
----------------------------

我獲取在數據庫1的DATAS並希望在DATABASE2插入。

來源

2017-03-15 sukumar K.G

當然這是可能的。你能否從數據庫中檢索數據而不插入任何數據？當然可以。你能否將數據插入數據庫而不檢索任何數據。當然可以。你可能已經知道如何做這些事情，所以你已經知道如何去做你所要求的。 – jmcilhinney

從你的CommandText你顯然不知道SQL查詢如何工作。 – CurseStacker

是的！這是可能的，我想你已經知道該怎麼做了。我會給你一些建議。這樣你的代碼就不會搞砸了。

Private Sub Button(sender As Object, e As EventArgs) Handles Button.Click 
    'call the sub methods' 
    retrieve_data() 
    insert_data() 
End Sub 

Private Sub retrieve_data() 
    'Set your first database here' 
    con.ConnectionString = 
      "Driver={Mysql odbc 3.51 Driver};Server=192.168.0.155;" & 
      "DataBase=DB1;uid=root;pwd=gnsa;port=3306" 
    'Retrieve the data here' 
End Sub 

Private Sub insert_data() 
    'Set the second database' 
    con.ConnectionString = 
      "Driver={Mysql odbc 3.51 Driver};Server=192.168.0.155;" & 
      "DataBase=DB2;uid=root;pwd=gnsa;port=3306" 
    'Insert your data here' 
End Sub

來源

2017-03-15 06:08:22 kiLLua

謝謝你killua –

如何在vb.net多個數據庫

回答

相關問題