منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : [vb6.0 version] مثال الاضافة الى جدولين بينهم علاقة مخصصة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
نفس الكلام هنا
[مشروع] [تم إرفاق المشروع-سقط سهوا]مثال الاضافة الى جدولين بينهم علاقة مخصصة
أرجو ان ينال على اعجابكم و استحسانكم
تم اصلاح خطا وتركت الاول للمقارنة
بارك الله فيك جعله في ميزان حسناتك
(23-07-19, 10:58 PM)awidan76 كتب : [ -> ]بارك الله فيك جعله في ميزان حسناتك

وفيك بارك الله...   آمين واياك وكل قاريء هذه الكلمات.
اللهم آمين
جزاك الله خير اخوي سعود
مثالٌ مميزٌ أخي سعود
بارك الله في مجهودك الكبير
السلام عليكم
الف شكر اخي الكريم / سعود
دائماً مبدع

باالنسبة للتعامل مع الاكسيس من 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 

وضعت الفكرة وانا متردد ربما انك على  علم بها 

 ولكن وضعتها للفائدة العامة ومن باب تنوع الطرق

تحياتي لك وللجميع