برنامج العيادة النسائية و لكن خاصية البحث في البرنامج المرفق لم أعرف كيف ؟

لا يوجد احد هنا

شوف الرابط التالي

دروس فيديو ولا اروع من موقع شركة ميكروسوفت الأم

http://msdn2.microsoft.com/en-us/vbasic/bb...v=topsectionsee

شكرا منير و انا الان اجربه

و لكنني بحاجة الى حل مشكلتي أولا لأني مستعجل جداً عليها فهل هناك شخص يستطيع مساعدتي

تفضل كود ملئ الداتا جريد بمعاينات المريضة

فقط اضف الاداة DataGridView

الى الواجهة Search

ثم اكتب رقم المريضه واضغط Button

' لايستيراد مكتبة التعامل مع قاعدة البيانات اكسس

Imports System.Data.OleDb





Public Class search




    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim con As New OleDb.OleDbConnection
        Dim da As New OleDb.OleDbDataAdapter
        Dim ds As New DataSet

        Dim strcon As String
        strcon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & Application.StartupPath & "\doctor.mdb;Persist Security Info=False"

        con = New OleDb.OleDbConnection(strcon)
        con.Open()

        da = New OleDb.OleDbDataAdapter("select * from tblvisit where sn=" & Val(Me.TextBox1.Text), strcon)

        da.Fill(ds, "tblvisit")

        Me.DataGridView1.DataSource = ds.Tables("tblvisit")
        Me.DataGridView1.Refresh()

        Call patientnametype()
    End Sub






'دالة الحصول على اسم وكنية المريض

    Private Sub patientnametype()
        Dim con As New OleDb.OleDbConnection
        Dim da As New OleDb.OleDbDataAdapter
        Dim ds As New DataSet

        Dim strcon As String
        strcon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & Application.StartupPath & "\doctor.mdb;Persist Security Info=False"

        con = New OleDb.OleDbConnection(strcon)
        con.Open()

        da = New OleDb.OleDbDataAdapter("select * from tblname where sn=" & Val(Me.TextBox1.Text), strcon)

        da.Fill(ds, "tblname")

        Try
            Me.TextBox2.Text = ds.Tables("tblname").Rows(0).Item("firstname")
            Me.TextBox3.Text = ds.Tables("tblname").Rows(0).Item("lastname")
        Catch ex As Exception

        End Try
    End Sub




End Class

NewDoctorApp.rar

اخوي منير اتمنى ان تعدل على المثال باالاعلى ليتم الفائده بحيث

تعرض نتائج البحث في لست بوكس وعند النقر المزدوج على نتيجة البحث المراده في اليست بوكس تفتح التفاصيل في فورم اخر

مشكور اخوي منير

عمل رائع

و لكن انا مع راي السيد عبد الرحمن

حاضر إن شاء الله

قريب جدا

الملف بعد التعديل

NewDoctorAp.rar

الله يبيض وجهك اخوي منير

تم الاستفادة من المثال بشكل كبير