[sendbad100]

السلام عليكم

الف شكر اخي الكريم / سعود

دائماً مبدع

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


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

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

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