Оператор Select для локальных и вставить в сетевую базу данных

Question

модуля для подключения LOCALHOST

Это мой модуль для подключения Localhost

Function connect() 
    con.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};server=localhost;database=tablelocal;uid=root;pwd=root;option=0"  
    con.Open() 
    End Function 

    Function Disconnect() 
    con.Close() 
    End Function 

модуля для подключения к сети

Это мой модуль для подключения через сеть

Function connectnetwork() 
    con.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};server=192.168.0.1;database=samplenetwork;uid=root;pwd=root;option=0"  
    con.Open() 
    End Function 

    Function Disconnectnetwork() 
    con.Close() 
    End Function 

См. Мое редактирование

Dim sourceConnection As New OdbcConnection(connect()) 
    Dim destinationConnection As New OdbcConnection(connectNetwork()) 
    Dim adapter As New OdbcDataAdapter("SELECT * from local ", sourceConnection) 
    Dim insertCommand As New OdbcCommand("INSERT INTO network", destinationConnection) 

    With insertCommand.Parameters 
     OdbcCommand = New Odbc.OdbcCommand("Insert into network select * from local ", con) 
     OdbcCommand.ExecuteNonQuery() 
    End With 

    adapter.InsertCommand = insertCommand 

    'Keep the RowState of each row as Added so it is ready to be inserted.' 
    adapter.AcceptChangesDuringFill = False 

    Dim table As New DataTable 

    'Retrieve data from source database.' 
    adapter.Fill(table) 

    'Save data to destination database.' 
    adapter.Update(table) 

Answer 1

Просто используйте два разных соединения с адаптером данных, например.

Dim sourceConnection As New OdbcConnection("source connection string here") 
Dim destinationConnection As New OdbcConnection("destination connection string here") 
Dim adapter As New OdbcDataAdapter("SELECT ...", sourceConnection) 
Dim insertCommand As New OdbcCommand("INSERT ...", destinationConnection) 

With insertCommand.Parameters 
    'Add parameters here.' 
End With 

adapter.InsertCommand = insertCommand 

'Keep the RowState of each row as Added so it is ready to be inserted.' 
adapter.AcceptChangesDuringFill = False 

Dim table As New DataTable 

'Retrieve data from source database.' 
adapter.Fill(table) 

'Save data to destination database.' 
adapter.Update(table) 

Answer 2

в то время как в сети все команды и запросы Case Sensitive (для MySQL) все вещи в "" (двойные кавычки) должны быть чувствительны к регистру (для MySQL)

Может быть, попробуйте добавить " Протокол = разъем;» к строке подключения.

ИЛИ проверить брандмауэр

иногда брандмауэр, который не позволил его через

проверки This