+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=28)
+---- الموضوع : [vb6.0] أين الخطاء في الاستعلام في برنامجي المرفق ؟؟ (/showthread.php?tid=15640)
أين الخطاء في الاستعلام في برنامجي المرفق ؟؟ - Microformt - 30-04-16
الاخوه الكرام
السلام عليكم ورحمة وبركاته
أين الخطاء في الاستعلام في برنامجي المرفق ؟؟
والله يحفظكم ويرعاكم
RE: أين الخطاء في الاستعلام في برنامجي المرفق ؟؟ - amgad525 - 30-04-16
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
RE: أين الخطاء في الاستعلام في برنامجي المرفق ؟؟ - Microformt - 01-05-16
(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
اخي العزيز
السلام عليكم ورحمة وبركاته
لكم مني جزيل الشكر والتقدير