مشاهدة النسخة كاملة : عاجل جدا من فضلكم
محمد زغلول
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
أشكرك أخي الكريم على المساعدة
جميع حقوق برمجة vBulletin محفوظة ©2025 ,لدى مؤسسة Jelsoft المحدودة.
جميع المواضيع و المشاركات المطروحة من الاعضاء لا تعبر بالضرورة عن رأي أصحاب شبكة المنتدى .