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

الاخوه الكرام
 السلام عليكم ورحمة وبركاته
أين الخطاء في الاستعلام في برنامجي المرفق ؟؟
والله يحفظكم ويرعاكم

(30-04-16, 09:25 PM)amgad525 كتب : [ -> ]

PHP كود :

Private Sub Command2_Click()
    Set db = OpenDatabase(App.Path & "/db1.mdb", 2)
    Set rs = db.OpenRecordset("select * from [soft] Where [AcceiD] = " & Val(Text1.Text) & " Or [Name] = '" & Trim(Text2.Text) & "'")

    If rs.RecordCount = 0 Then
        MsgBox "عفواً لايوجد سجل بهذا البحث", vbInformation + vbMsgBoxRtlReading
    
    Else
        Text1.Text = rs("AcceiD").Value
        Text2.Text = rs("Name").Value

    End If
    
    rs.Close
    db.Close
End Sub 


اخي العزيز
 السلام عليكم ورحمة وبركاته
 لكم مني جزيل الشكر والتقدير