No non e' che nonmi aggrada, solo che non l'ho mai fatto, ora provero ma prima devo risolvere un altro problema,

Ecco il mio codice:

Devo estrarre da un Database con 300 Tabelle nle quali contengono 500 record l'una tutti i dati e inserirli in un altro Database contenente le medesime tabelle vuote, ho cominciato con questa idea, ma mi da errore nella connessione

oComm2.Connection.Open()

dopo che ha effettuato il 30% del lavoro di trasferimento, come e' possibile , un sovraccarico di qualcosa ???

altrimenti per il funzionamento ora va .....

la data ho risolto come si vede.......


codice:
        oConn1.Open()
        Dim oComm1 As New OleDbCommand("SELECT * FROM " & TableName & "", oConn1)
        Dim oRead1 As OleDbDataReader = oComm1.ExecuteReader
        While oRead1.Read
            If Not IsDBNull(oRead1("Campo")) Then Campo = oRead1("Campo")
            If Not IsDBNull(oRead1("Campo")) Then Campo = oRead1("Campo")
            If Not IsDBNull(oRead1("Campo")) Then Campo = oRead1("Campo")
            If Not IsDBNull(oRead1("Campo")) Then Campo = oRead1("Campo")


            Dim oComm2 As New OdbcCommand("INSERT INTO " & TableName & "(" & _
                                            "Ora_Start_In," & _
                                            "Ora_End_In," & _
                                            "Ora_Start_Out," & _
                                            "Ora_End_Out" & _
                                            ") VALUES(" & _
                                            "'" & Campo & "'," & _
                                            "'" & Campo.ToString("yyyy-MM-dd h:m:s") & "'," & _
                                            "'" & Campo.ToString("yyyy-MM-dd h:m:s") & "'," & _
                                            "'" & Campo.ToString("yyyy-MM-dd h:m:s") & "'," & _
                                            "'" & Campo.ToString("yyyy-MM-dd h:m:s") & "'" & _
                                            ")", oConn2)
            oComm2.Connection.Open()
            oComm2.ExecuteNonQuery()
            oComm2.Connection.Close()


        End While
        oConn1.Close()