تقييم الموضوع :
  • 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 ك ب / التحميلات : 254)

نصيحة للتخفيف على قاعدة بيانات المنتدى  لا تخزن الصور الخاصة بالسؤال في قاعدة بيانات المنتدى

الرد
تم الشكر بواسطة: الوادي , محمد العامر


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مثال لفحص حالة ملف قاعدة بيانات من نوع اكسس من حيث الاستخدام من عدمه سعود 0 794 31-05-20, 07:17 AM
آخر رد: سعود
  [مشروع] مثال بسيط لقفل وفك قفل كلمة مرور اكسس مع الضغط سعود 3 1,250 18-02-20, 12:24 PM
آخر رد: الوايلي
Heart [مشروع] [تم إرفاق المشروع-سقط سهوا]مثال الاضافة الى جدولين بينهم علاقة مخصصة سعود 7 1,745 10-02-20, 06:38 AM
آخر رد: سعود
  [مشروع] قاعدة بيانات ادارة المناهج abdoadel0809 1 774 09-11-19, 02:00 AM
آخر رد: حريف برمجة
  [مشروع] مثال بسيط (الاجراءات المخزنة - اكسس 2010 + فيجوال بيسك 2015) سعود 6 5,055 05-07-19, 05:20 PM
آخر رد: sendbad100
  تحميل source برنامج صغير لتسجيل اصناف في قاعدة بيانات SQl server وعرضها في combobox ggtt17121985 0 1,048 25-04-19, 02:29 AM
آخر رد: ggtt17121985
  [مشروع] أحدث مثال(لماقدمته) لتصفح البيانات مجموعة مجموعة وليس صف صف سعود 2 1,269 21-04-18, 06:54 PM
آخر رد: سعود
  مثال تغيير اسم المستخدم وكلمة المرور اعتمادا على الرقم الفريد سعود 5 4,246 02-01-18, 05:35 PM
آخر رد: سعود
  [مشروع] مثال اعادة الترقيم لعمود في الجدول سعود 0 1,280 09-09-17, 06:52 AM
آخر رد: سعود
  [مشروع] مثال تصفح البيانات مجموعة مجموعة سعود 0 1,101 01-08-17, 12:10 AM
آخر رد: سعود

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


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