كيفية نقل بيانات جدول إلى جدول آخر بدون تكرار ؟

مغلق

بدأه alhootti في 6 أكتوبر 2007 · 5 رد · 846 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

مشاركة: واتساب X فيسبوك تيليجرام

#16 أكتوبر 2007 في 17:50 صاحب الموضوع

السلام عليكم و رحمة الله و بركاته

أنا عندي جدولين tabel1 و tabel2

tabel1 يحتوي no و name و فيه اسماء متكررة

tabel2 يحتوي نفس الشيء no و name

أريد نقل بيانات tabel1 إلى tabel2 لكن بدون تكرار

و شكرا لكم

#27 أكتوبر 2007 في 01:13

لقد وجدت الحل بهذا الكود

ado.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\" & "data\shoob.mdb" & ";Jet OLEDB:Database Password= ********"
ado.RecordSource = "INSERT INTO tabel1 SELECT DISTINCT qabeela From tabel2 "
ado.Refresh

لكن هناك مشلكة تظهر عندي رسالتين خطأ و يتم تنفيد المهمة

هذه الرسالة الأولى

operation is not allowed when the object is closed

ثم الرسالة الثانية

run-time error'3704':

#37 أكتوبر 2007 في 12:59

جرب كما يلي

Dim con As ADODB.Connection
Set con = New ADODB.Connection
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\" & "data\shoob.mdb" & ";Jet OLEDB:Database Password= ********"""
con.Execute "INSERT INTO tabel1 SELECT DISTINCT * From tabel2 ", , adExecuteNoRecords
con.Close
Set con = Nothing