تقييم الموضوع :
  • 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 ك ب / التحميلات : 223)
الرد
تم الشكر بواسطة: الوادي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] قاعدة بيانات ادارة المناهج abdoadel0809 1 181 09-11-19, 02:00 AM
آخر رد: حريف برمجة
Heart [مشروع] [تم إرفاق المشروع-سقط سهوا]مثال الاضافة الى جدولين بينهم علاقة مخصصة سعود 5 571 23-07-19, 08:49 PM
آخر رد: سعود
  [مشروع] مثال بسيط (الاجراءات المخزنة - اكسس 2010 + فيجوال بيسك 2015) سعود 6 4,143 05-07-19, 05:20 PM
آخر رد: sendbad100
  [مشروع] مثال بسيط لقفل وفك قفل كلمة مرور اكسس مع الضغط سعود 0 439 03-07-19, 08:22 AM
آخر رد: سعود
  تحميل source برنامج صغير لتسجيل اصناف في قاعدة بيانات SQl server وعرضها في combobox ggtt17121985 0 437 25-04-19, 02:29 AM
آخر رد: ggtt17121985
  [مشروع] أحدث مثال(لماقدمته) لتصفح البيانات مجموعة مجموعة وليس صف صف سعود 2 855 21-04-18, 06:54 PM
آخر رد: سعود
  مثال تغيير اسم المستخدم وكلمة المرور اعتمادا على الرقم الفريد سعود 5 3,627 02-01-18, 05:35 PM
آخر رد: سعود
  [مشروع] مثال اعادة الترقيم لعمود في الجدول سعود 0 951 09-09-17, 06:52 AM
آخر رد: سعود
  [مشروع] مثال تصفح البيانات مجموعة مجموعة سعود 0 811 01-08-17, 12:10 AM
آخر رد: سعود
  [مشروع] مثال(كود انشاء(قاعدة بيانات + جدول + اعمدة) تصفير العداد) مع اضافة صور والبحث المطلق سعود 14 13,997 06-06-17, 05:35 PM
آخر رد: Abdh111

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


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