reza6384
چهارشنبه 16 مرداد 1387, 11:44 صبح
سلام.
من یه دیتابیس روی SqlServer دارم که چند تا از جداول اون رو توی اکسس Export کردم.
من می خوام رکوردهای این جداول رو از Sql به Access انتقال بدم، بعد این DataBase اکسس میره و توی PocketPC یه تغییراتی روش انجام میشه و برمی گرده.
برای انتقال اطلاعات قبلا از این روش استفاده می کردم که یک دیتاست رو از Sql پر می کردم و بعد دونه دونه رکوردهای اون جدول خاص دیتاست رو توی دیتابیس مقصد Insert می کردم.
حالا، آیا میشه ( با توجه به این که ساختار جداولم در Sql و Access یکسان هستند ) بیام با یه SqlDataAdapter دیتاست رو پر کنم و بعد با استفاده از متد Update دیتاست همه رکوردها رو توی Access بریزم، بدون اینکه برای درج کدی بنویسم؟
برای توضیح بیشتر کد زیر رو که نوشتم ولی کار نمی کنه اینجا میذارم.
Dim IDS As New DataSet ' Interface DataSet
Dim Cmd As String = "Select * From Product"
Dim ODA As New OleDbDataAdapter(Cmd, Me.AccessConn)
Dim SDA As New SqlDataAdapter(Cmd, Me.SqlConn)
Dim Product As New DataTable("Product")
IDS.Tables.Add(Product)
ODA.Fill(IDS, "Product")
IDS.Clear()
SDA.Fill(IDS, "Product")
ODA.Update(IDS)
MsgBox("COMPLETED")
در ضمن AccessConn , SqlConn مشکلی ندارن، فقط برای اینکه اینجا شلوغ نشه تعریفشون رو نیاوردم چون مهم نیست.
من یه دیتابیس روی SqlServer دارم که چند تا از جداول اون رو توی اکسس Export کردم.
من می خوام رکوردهای این جداول رو از Sql به Access انتقال بدم، بعد این DataBase اکسس میره و توی PocketPC یه تغییراتی روش انجام میشه و برمی گرده.
برای انتقال اطلاعات قبلا از این روش استفاده می کردم که یک دیتاست رو از Sql پر می کردم و بعد دونه دونه رکوردهای اون جدول خاص دیتاست رو توی دیتابیس مقصد Insert می کردم.
حالا، آیا میشه ( با توجه به این که ساختار جداولم در Sql و Access یکسان هستند ) بیام با یه SqlDataAdapter دیتاست رو پر کنم و بعد با استفاده از متد Update دیتاست همه رکوردها رو توی Access بریزم، بدون اینکه برای درج کدی بنویسم؟
برای توضیح بیشتر کد زیر رو که نوشتم ولی کار نمی کنه اینجا میذارم.
Dim IDS As New DataSet ' Interface DataSet
Dim Cmd As String = "Select * From Product"
Dim ODA As New OleDbDataAdapter(Cmd, Me.AccessConn)
Dim SDA As New SqlDataAdapter(Cmd, Me.SqlConn)
Dim Product As New DataTable("Product")
IDS.Tables.Add(Product)
ODA.Fill(IDS, "Product")
IDS.Clear()
SDA.Fill(IDS, "Product")
ODA.Update(IDS)
MsgBox("COMPLETED")
در ضمن AccessConn , SqlConn مشکلی ندارن، فقط برای اینکه اینجا شلوغ نشه تعریفشون رو نیاوردم چون مهم نیست.