أخي أحمد منصور Ahmed_Mansoor
[align=left]أخونا كان كاتب فقط هذا الكود ولم ينفذه
وأنا عدلت له
[align=left]أخونا كان كاتب فقط هذا الكود ولم ينفذه
PHP كود :
Private Sub Command1_Click()
If Con.State = 1 Then Con.Close
Con.Open "Provider=Microsoft.Ace.OLEDB.12.0; Data Source=" & App.Path & "\" & Combo1.Text & ".accdb; Jet OLEDB:Database Password = Ahmed Abdulla"
SQLs = "Delete From Offer Where OfferNo='" & Trim(Text1.Text) & "' and Item=" & Val(Trim$(Text2.Text))
End Sub
وأنا عدلت له
PHP كود :
Private Sub Command1_Click()
If Con.State = adStateOpen Then Con.Close
Con.Open "Provider=Microsoft.Ace.OLEDB.12.0; Data Source=" & App.Path & "\" & Combo1.Text & ".accdb; Jet OLEDB:Database Password = Ahmed Abdulla"
If RSS.State = adStateOpen Then RSS.Close
SQLs = "Delete From Offer Where OfferNo='" & Trim(Text1.Text) & "' and Item=" & Val(Trim$(Text2.Text))
RSS.Open SQLs, Con, adOpenKeyset, adLockPessimistic
End Sub
أخي سندباد تفضل قاعدة البيانات
