بسم الله الرحمن الرحيم
اخواني انا اريد ان اعرف هل كود البحث خطأ ( انا بستخدم مكتبة DAO)؟
n = Trim(OsenXPTextBox1.Text)
e = Trim(OsenXPTextBox2.Text)
r = Trim(OsenXPTextBox3.Text)
s = InputBox(" Enter Name ")
SQL = " Select * from information where Name='" & s & "'"
t.OpenRecordset SQL, d
If t.EOF = True Then
n = t!Name
e = t!email
r = t!telephone
Else
MsgBox " Not Found "
End Ifحيث أن D متغير قاعدة البيانات
بدلا من هذا الكود
If t.EOF = True Then
n = t!Name
e = t!email
r = t!telephone
Else
MsgBox " Not Found "
End If
استخدم:
while not t.EOF if s=t!name then n = t!Name e = t!email r = t!telephone exit loop end if loop
طبعا هذا الكود يوجد لك أول سجل فيه الاسم يساوي الاسم المدخل
في البداية يسخرون منك . . . ثم يهملونك . . . ثم يحاربونك . . . ثم تنتصر
الخطأ في If t.EOF = True Then
لازم تكون
If t.EOF = False Then
" select * from information where name like '*" & s& "*'"
تحياتي
تم تعديل هذه المشاركة بواسطة مبرمج مبتدا في 17 يونيو 2007 في 09:16
هذا الموضوع مغلق.
