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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] مثال اعادة الترقيم لعمود في الجدول سعود 0 63 09-09-17, 06:52 AM
آخر رد: سعود
  [مشروع] مثال تصفح البيانات مجموعة مجموعة سعود 0 111 01-08-17, 12:10 AM
آخر رد: سعود
  [مشروع] مثال(كود انشاء(قاعدة بيانات + جدول + اعمدة) تصفير العداد) مع اضافة صور والبحث المطلق سعود 14 8,947 06-06-17, 05:35 PM
آخر رد: Abdh111
Wink [مشروع] مثال إرتجالي عن برنامج بقالة (او اي شي حولها) سعود 6 1,828 21-01-17, 07:17 AM
آخر رد: سعود
  [مشروع] مثال نسخ آخر صف من DataTable الى أخرى عند الاغلاق سعود 0 364 29-08-16, 09:11 AM
آخر رد: سعود
  مثال متكامل للتعامل مع قاعدة بيانات SQL Server 2008 و #C ahmedabdelaliem 2 1,091 29-05-16, 12:07 AM
آخر رد: ahmedabdelaliem
Rainbow [VB.NET] برنامج كامل للربط مع قاعدة بيانات اكسس abdhassan 8 2,696 05-02-16, 10:16 PM
آخر رد: VB_Local
  حفظ واستدعاء صورة فى قاعدة بيانات أكسس باستخدام دوت نت الجندى 4 4,079 05-02-16, 10:13 PM
آخر رد: VB_Local
  [مشروع] مثال بسيط (الاجراءات المخزنة - اكسس 2010 + فيجوال بيسك 2015) سعود 5 2,512 24-08-15, 06:46 PM
آخر رد: سعود
  مثال directcast من database table column الى picturebox سعود 2 1,212 28-06-15, 06:12 PM
آخر رد: kamikaz17

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


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