المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : عاجل جدا من فضلكم



محمد زغلول
23-01-2005, 04:45 PM
السلام عليكم

الإخوة الكرام

الرجاء إعطائي كود (صحيح) للبحث في قاعدة بيانات باستخدام أداة data control , حيث أن البرنامج عبارة عن بحث عن اسم شخص داخل قاعدة البيانات

اسم قاعدة البيانات : Hospital1

اسم الجدول : Hospital

والحقل اسمه : name

هاوي برمجة
23-01-2005, 05:49 PM
:06:
اخوي اذا انت تستخدم نظام My SQL
كقاعدة بيانات فادخل هذا الكود في بيئة التشغيل
use Hospital1
select name
from
Hospital
وهذا الكود يعمل مع SQL Server

تحيتي أخوك
هاوي برمجة
:biggthump

محمد زغلول
23-01-2005, 06:36 PM
الأخ الكريم

أنا أستخدم قاعدة بيانات بالأكسيس , وأعرف طريقة الربط بينها وبين الفيجوال لكن ينقصني كود البحث في القاعدة التي أعطيتكم اسمها , وذلك بواسطة input box أدخل فيه الاسم المطلوب البحث عنه

وجزاك الله خيرا

TeamFlex
24-01-2005, 12:57 AM
هذا هو الكود




Dim FindName As String

FindName = InputBox("ادخل الاسم")
Data1.Recordset.FindFirst ("اسم الحقل في قاعدة البيانات" & "'" & FindName & "'")




تقدر تضيف هالكود تحته حتى يبين لك اذا ما لقا الاسم



If Data1.Recordset.NoMatch = True Then
MsgBox "لم يتم العثور عليه"

محمد زغلول
24-01-2005, 11:01 AM
أشكرك أخي الكريم على المساعدة