نقل بيانات من ثلاثة جداول إلى جدول واحد دفعة واحدة؟

أخى/ أحتى wardah

تفضل المثال بعد التعديل

بالتوفيق ان شاء الله

test.rar

شكراً أخي العزيز على اهتمامك لكن:

المثال ينقل السجل الأول فقط من كل جدول (والمطلوب نقل سجلات الجداول بكاملها)

كما أنه يكرر السجل المنقول بعدد السجلات الموجودة في الجدول(إذا كان الجدول يحتوي خمسة سجلات ينقل السجل الأول خمس مرات)

أرجو التوضيح .. وبارك الله فيك.

Private Sub Command1_Click()
	Dim we As New ADODB.Recordset
	Dim sql As String
	sql = "INSERT INTO tab1 SELECT tab2.month,tab2.price,tab2.buy,tab2.total FROM tab2;"
	db.Execute sql
	sql = "INSERT INTO tab1 SELECT tab3.month,tab3.price,tab3.buy,tab3.total FROM tab3;"
	db.Execute sql
	sql = "INSERT INTO tab1 SELECT tab4.month, tab4.price, tab4.buy, tab4.total FROM tab4;"
	db.Execute sql
	we.Open "[tab1]", db, adOpenDynamic, adLockPessimistic
	Set DataGrid3.DataSource = we
End Sub

وإذا أردت تفريغ الجدول tab1 قبل عملية النقل :

sql = "Delete * from tab1;"
	db.Execute sql

بارك الله لكما..