تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مثال نسخ سجلات من جدول في قاعدة الى جدول في قاعدة اخرى
#1
PHP كود :
Public Class Form1

    Dim con1 
As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db1.accdb")
 
   Dim con2 As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db2.accdb")
 
   Dim da As New OleDb.OleDbDataAdapter("SELECT tn FROM tb1"con1)
 
   Private Sub gd()
 
       Dim da2 As New OleDb.OleDbDataAdapter("select  *from tb2"con2)
 
       Dim dt2 As New DataTable
        da2
.Fill(dt2)
 
       ListBox2.DataSource dt2
        ListBox2
.DisplayMember "tn"
 
   End Sub
    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles MyBase.Load
        Dim tb1 
As New DataTable
        da
.Fill(tb1)
 
       ListBox1.DataSource tb1
        ListBox1
.DisplayMember "tn"
 
       gd()
 
   End Sub

    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        da
.InsertCommand = New OleDb.OleDbCommand("INSERT INTO tb2 (tn) VALUES (@tn)"con2)
 
       da.InsertCommand.Parameters.Add("@tn"OleDb.OleDbType.VarChar50"tn")
 
       da.AcceptChangesDuringFill False
        Dim dt 
As New DataTable
        da
.Fill(dt)
 
       da.Update(dt)
 
       gd()
 
   End Sub
End 
Class 


الملفات المرفقة
.zip   Copydb1Todb2.zip (الحجم : 72.68 ك ب / التحميلات : 77)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: الوادي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Wink [مشروع] مثال إرتجالي عن برنامج بقالة (او اي شي حولها) سعود 4 1,048 15-11-16, 06:29 PM
آخر رد: samnaj00
  [مشروع] مثال نسخ آخر صف من DataTable الى أخرى عند الاغلاق سعود 0 130 29-08-16, 09:11 AM
آخر رد: سعود
  مثال متكامل للتعامل مع قاعدة بيانات SQL Server 2008 و #C ahmedabdelaliem 2 626 29-05-16, 12:07 AM
آخر رد: ahmedabdelaliem
  [مشروع] مثال(كود انشاء(قاعدة بيانات + جدول + اعمدة) تصفير العداد) مع اضافة صور والبحث المطلق سعود 13 6,811 19-02-16, 10:26 PM
آخر رد: العواد الصغير
Rainbow [VB.NET] برنامج كامل للربط مع قاعدة بيانات اكسس abdhassan 8 1,743 05-02-16, 10:16 PM
آخر رد: VB_Local
  حفظ واستدعاء صورة فى قاعدة بيانات أكسس باستخدام دوت نت الجندى 4 3,098 05-02-16, 10:13 PM
آخر رد: VB_Local
  [مشروع] مثال بسيط (الاجراءات المخزنة - اكسس 2010 + فيجوال بيسك 2015) سعود 5 1,793 24-08-15, 06:46 PM
آخر رد: سعود
  مثال directcast من database table column الى picturebox سعود 2 952 28-06-15, 06:12 PM
آخر رد: kamikaz17
  مثال تغيير اسم المستخدم وكلمة المرور اعتمادا على الرقم الفريد سعود 2 1,695 26-07-14, 07:53 AM
آخر رد: raoe-041
  تحويل ملف Script الى قاعدة بيانات SQL Sajad 0 994 17-03-14, 09:25 PM
آخر رد: Sajad

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم