ورود

View Full Version : حرفه ای: ادغام دو جدول در ديتابيس و تشكيل جدول جديد در vb6


bagion
سه شنبه 19 مرداد 1389, 12:58 عصر
با سلام و درود خدمت تمام برنامه نويسان عزيزم و همچنين مديران سايت
من دو جدول بايك فيلد مشترك دارم (مانند شكل زير) براي ادغام دو جدول و تشكيل جدول اصلي بصورت مرتب بر حسب ID (منحصر بفرد) در vb6 از چه دستوراتي استفاده كنم .(با ado نتونستم )
ركوردها حدود 10000 تا هستند.
لطفا اگر سورس كد هاي مشابه داريد بذاريد.
http://www.irupload.ir/images/vbtf0kk43jvmpppz3yyc.jpg
sohrab o
جمعه 22 مرداد 1389, 10:05 صبح
از join استفاده کن. جستجو کنی مقالات مرتبط خیلی زیادی تو سایت پیدا می کنی.
SilverGold
شنبه 23 مرداد 1389, 00:39 صبح
سلام آقا سهراب جالبه اگه با جوین کار کردی برای ما هم توضیح بده
sohrab o
شنبه 23 مرداد 1389, 00:45 صبح
خوب اول باید یک select بنویسی که دقیقا چیزویو که میخوایو تولید کنه
بعد با insert into به اون جدول اضافه می کنی
به همین راحتی(join هم واسه قسمت select استفاده می شه)
barname_majid
شنبه 23 مرداد 1389, 19:09 عصر
Dim Con As New ADODB.Connection

Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & App.Path & "\Data source\"

Dim Cmd As New ADODB.command
Cmd.ActiveConnection = Conn
Cmd.CommandText = "select id,subjectid,othersidenumber,Subject_imei,OtherSid e_imei,Duration,hejritime,IsCaller,FaxFileName,Ful lFileName into majid from call,DigitalRecord where(id=callid)"


Cmd.Execute
Set Cmd = Nothing
Con.Close
bagion
شنبه 30 مرداد 1389, 11:40 صبح
تشکر از همه سروران و اساتيد بزرگوار لطف میکنید روش رفرش کردن این جداول رو هم بگید(طوریکه جدول خالی نشه یعنی حذف کردن رکورد و اضافه کردن نباشه)فقط نوشتن باشه.