[Okta Webinar] Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 495
  • Last Modified:

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

Hello,
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
            Try
               AccessT2.Copy()
                SqlT2.ImportRow(dr)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        Next
    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 {
			AccessT2.Copy();
			SqlT2.ImportRow(dr);
		} catch (Exception ex) {
			Interaction.MsgBox(ex.Message);
		}
	}
}

Open in new window


Thanks in advance for help.
0
dejandejanovic
Asked:
dejandejanovic
  • 3
  • 3
1 Solution
 
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.
0
 
dejandejanovicAuthor Commented:
To copy rows/records from one table to another...
0
 
dejandejanovicAuthor Commented:
Your comment make sense now to me. For any suggestion, tips I would be pleased if you could provide...
0
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 
Carl TawnSystems 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();
            odbcAdap.Fill(accessData);

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

            // push data to SQL Server
            sqlAdap.Update(accessData);

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
0
 
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
        Try
            Dim connection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=TEST.mdb")
            connection.Open()
            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
            adapter.Fill(AccessData)
            connection.Close()
            For Each row As DataRow In AccessData.Rows
                row.SetAdded()
            Next
            MsgBox("Access conn successful")
        Catch ex As Exception
            MsgBox("access error: " + ex.Message)
        End Try

        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=********")
            Sqlconn.Open()
                        Dim SqlAdapter As New SqlDataAdapter("SELECT * FROM TEST", Sqlconn)
                       Dim builder As New SqlCommandBuilder(SqlAdapter)
            builder.GetInsertCommand()
            SqlAdapter.Update(AccessData)
            Sqlconn.Close()
            MsgBox("sql conn successful")
        Catch ex As Exception
            MsgBox("sql error: " + ex.Message)
        End Try

Open in new window

0
 
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.
0

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

  • 3
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now