Difficults copy data from DataTable to another. Need someone to check code!

I'm trying to import data from access table to sql table, through Dataset DataTables. Below code just dont want work for me. even any error does not appear.
T2 is table from access database, T2main is table from sql database. They have indentical column names, and type.

Imports System.Data
Imports System.Data.SqlClient
Partial Class Default2
    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim AccessT2 As New DataTable("T2")
        Dim SqlT2 As New DataTable("T2main")
        For Each dr As DataRow In AccessT2.Rows
            Catch ex As Exception
            End Try
    End Sub
End Class

Open in new window

protected void Button1_Click(object sender, System.EventArgs e)
	DataTable AccessT2 = new DataTable("T2");
	DataTable SqlT2 = new DataTable("T2main");
	foreach (DataRow dr in AccessT2.Rows) {
		try {
		} catch (Exception ex) {

Open in new window

Thanks in advance for help.
Who is Participating?
Carl TawnConnect With a Mentor Systems and Integration DeveloperCommented:
Assuming you need to actually load data from an Access database and copy it to a SQL Server database, you are going to need a few things.

1) A OleDbConnection object for your access database, along with an OleDbDataAdapter to retrieve the data.

2) A SqlConnection object and SqlDataAdapter objects to load the data and push it to you SQL server.

This sample should get you started:
            // create connection for Access database
            OdbcConnection odbcConn = new OdbcConnection("Driver=Microsoft Access Driver (*.mdb);Dbq=C:\\Test.mdb;");
            OdbcDataAdapter odbcAdap = new OdbcDataAdapter("SELECT PersonID, FirstName, LastName FROM People", odbcConn);

            // create connection for SQL Server database
            SqlConnection sqlConn = new SqlConnection("Server=.\\SQLEXPRESS;Initial Catalog=CarlDemo;Integrated Security=SSPI;");
            SqlDataAdapter sqlAdap = new SqlDataAdapter("SELECT PersonID, FirstName, LastName FROM People", sqlConn);

            // configure INSERT statement for SQL Server database
            SqlCommandBuilder builder = new SqlCommandBuilder(sqlAdap);
            sqlAdap.InsertCommand = builder.GetInsertCommand();

            // retrieve data from Access
            DataTable accessData = new DataTable();

            // mark each row as new so it will get inserted
            foreach (DataRow row in accessData.Rows)

            // push data to SQL Server

Open in new window

I'd suggest you read up on data access to more fully understand the components you are using.

You can find a basic introduction to data access on my blog here: http://myvirtualplayground.co.uk/blog/Fundamentals_Reading_From_a_Database_Part_1
Carl TawnSystems and Integration DeveloperCommented:
What is it you are trying to achieve? At the moment all you have done is create two empty DataTables. You're not getting any rows in your loop because both of those DataTables are empty.
dejandejanovicAuthor Commented:
To copy rows/records from one table to another...
Upgrade your Question Security!

Your question, your audience. Choose who sees your identity—and your question—with question security.

dejandejanovicAuthor Commented:
Your comment make sense now to me. For any suggestion, tips I would be pleased if you could provide...
dejandejanovicAuthor Commented:
Thanks Carl. Your guide was 100% helpful for me.
If might someone will needed int the future, below is a little bit changed code, but still same methods.

Dim AccessData As New DataTable
            Dim connection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=TEST.mdb")
            Dim adapter As New OleDbDataAdapter
            Dim userdataset As New DataSet
            Dim command As New OleDbCommand
            command.CommandText = "SELECT * FROM TEST"
            command.Connection = connection
            adapter.SelectCommand = command
            For Each row As DataRow In AccessData.Rows
            MsgBox("Access conn successful")
        Catch ex As Exception
            MsgBox("access error: " + ex.Message)
        End Try

            'create connection for SQL Server database
            Dim Sqlconn As New SqlConnection("Data Source=SQLDB;Initial Catalog=TEST;Persist Security Info=True;User ID=sa;Password=********")
                        Dim SqlAdapter As New SqlDataAdapter("SELECT * FROM TEST", Sqlconn)
                       Dim builder As New SqlCommandBuilder(SqlAdapter)
            MsgBox("sql conn successful")
        Catch ex As Exception
            MsgBox("sql error: " + ex.Message)
        End Try

Open in new window

Carl TawnSystems and Integration DeveloperCommented:
Glad you found it helpful.

Just one quick note though - you don't need to manually open and close the database connection when using the DataAdapters. The Fill() and Update() methods will take care of that for you.
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.