r.ghost
یک شنبه 25 مرداد 1388, 18:53 عصر
با سلام
بنده می خوام دیتاست یک بانک رو به بانک دیگه منتقل کنم در واقع : 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
بنده می خوام دیتاست یک بانک رو به بانک دیگه منتقل کنم در واقع : 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