+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أمثلة ومشاريع vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=30)
+---- الموضوع : [مشروع] [vb6.0 version] مثال الاضافة الى جدولين بينهم علاقة مخصصة (/showthread.php?tid=30480)
[vb6.0 version] مثال الاضافة الى جدولين بينهم علاقة مخصصة - سعود - 23-07-19
نفس الكلام هنا
أرجو ان ينال على اعجابكم و استحسانكم
تم اصلاح خطا وتركت الاول للمقارنة
RE: [vb6.0 version] مثال الاضافة الى جدولين بينهم علاقة مخصصة - awidan76 - 23-07-19
بارك الله فيك جعله في ميزان حسناتك
RE: [vb6.0 version] مثال الاضافة الى جدولين بينهم علاقة مخصصة - سعود - 23-07-19
(23-07-19, 10:58 PM)awidan76 كتب : بارك الله فيك جعله في ميزان حسناتك
وفيك بارك الله... آمين واياك وكل قاريء هذه الكلمات.
RE: [vb6.0 version] مثال الاضافة الى جدولين بينهم علاقة مخصصة - مصمم هاوي - 25-07-19
مثالٌ مميزٌ أخي سعود
بارك الله في مجهودك الكبير
RE: [vb6.0 version] مثال الاضافة الى جدولين بينهم علاقة مخصصة - sendbad100 - 15-11-19
السلام عليكم
الف شكر اخي الكريم / سعود
دائماً مبدع
باالنسبة للتعامل مع الاكسيس من vb6 يمكن الاستغناء عن هذه الاسطر
PHP كود :
If rs.State = 1 Then rs.Close
rs.Open "select @@identity", con
Lastid = rs.Fields(0).Value
بطلب رقم id قبل عمل التحديث بعد عمل الاضافة Lastid = rs![id]
كالتالي
PHP كود :
Private Sub Command1_Click()
List1.Clear
List2.Clear
Dim Lastid As Integer
rs.AddNew
rs.Fields("countryname").Value = Me.country.Text
Lastid = rs![id]
rs.Update
Me.Refresh
List1.Refresh
rs.MoveLast
'If rs.State = 1 Then rs.Close
'rs.Open "select @@identity", con
'Lastid = rs.Fields(0).Value
For Each h In Split(cities.Text, vbCrLf)
rs2.AddNew
rs2.Fields("countryid").Value = Lastid
rs2.Fields("cityname").Value = h
rs2.Update
Next
Me.Refresh
List2.Refresh
rs2.MoveFirst
gd
End Sub
وضعت الفكرة وانا متردد ربما انك على علم بها
ولكن وضعتها للفائدة العامة ومن باب تنوع الطرق
تحياتي لك وللجميع