ارسال و ورود دیتاست یک بانک به بانک دیگر

[r.ghost]

با سلام

بنده می خوام دیتاست یک بانک رو به بانک دیگه منتقل کنم در واقع : dataset export to ms access

نمونه کدی هم که نوشتم به شکل زیر اما جواب نمی ده ممنون میشم کمکم کنید مرسی


Imports System.Data.OleDb
Public Class Form1
Dim cn As OleDbConnection
Dim cnn As OleDbConnection
Dim cms As New System.Data.OleDb.OleDbDataAdapter
Dim cmd As New System.Data.OleDb.OleDbDataAdapter
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\NT.mdb")
Dim dset As New DataSet
cn.Open()
cms.SelectCommand = New System.Data.OleDb.OleDbCommand("select * from normal", cn)
cms.Fill(dset, "normal")

cnn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\IB.mdb")
cnn.Open()
cmd.InsertCommand = New System.Data.OleDb.OleDbCommand("insert into normal_users(user_id, normal_username, normal_password) VALUES (?,?,?)", cnn)

cmd.InsertCommand.Parameters.Add("@user_id", OleDb.OleDbType.Integer, 0, "user_id")

cmd.InsertCommand.Parameters.Add("@normal_username", OleDb.OleDbType.VarWChar, 50, "normal_username")

cmd.InsertCommand.Parameters.Add("@normal_password", OleDb.OleDbType.VarWChar, 50, "normal_password")

cmd.Update(dset, "normal_users")

Catch
End Try
cn.Close()
cnn.Close()
End Sub
End Class