مشاكل في التعامل مع قاعدة البيانات

أعرضي مشاكلك و سوف يحاول الجيمع حلها معكي

السلام عليكم

أختي الكريمة ، لن تجدي من يتعامل معاك بالطريقة هذه لأنه هذا منتدي وليس سوق

اعرضي الكود الذي حاولتي وان شاء الله نساعدك

بالتوفيق

اوكي الله يعافيكم الكود حق كيفيه البحث search

Private Sub BtnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSearch.Click
        Dim s As Integer
        s = InputBox("ادخل رقم التعريفي للعضو البحث عنه", "البحث")

        Dim myreseach As OleDbDataReader
        Dim str As String

        str = "select * from members where id =" & s

        Dim objcommand As New OleDbCommand(str, Con)
        myreseach = objcommand.ExecuteReader()
        myreseach.Read()

        txtid.Text = myreseach("id")

        txtf_name.Text = myreseach("f_name")
        txtm_name.Text = myreseach("m_name")
        txtg_name.Text = myreseach("g_name")
        txtl_name.Text = myreseach("l_name")
        ComboBox1.Text = myreseach("sex")
        txtnationality.Text = myreseach("nationality")
        txtssn.Text = myreseach("ssn")
        txtbirth_date.Text = myreseach("birth_date")
        txtabilities.Text = myreseach("abilities")
        txtgeneral_major.Text = myreseach("general_major")
        txtprivate_major.Text = myreseach("private_major")
        txtwork_direction.Text = myreseach("work_direction")
        txtwork_place.Text = myreseach("work_place")
        txtuniversity.Text = myreseach("university")
        txtcollege.Text = myreseach("college")
        txtg_department.Text = myreseach("g_department")
        txtstudy_place.Text = myreseach("study_place")
        txtg_place.Text = myreseach("g_place")
        txtmagstaer_title.Text = myreseach("magstaer_title")
        txtdr_title.Text = myreseach("dr_title")
        txtexper_years.Text = myreseach("exper_years")

        txtstate.Text = myreseach("state")
        txtjob.Text = myreseach("job")
        txtapothem.Text = myreseach("apothem")
        txtrank.Text = myreseach("rank")
        txtforigen_lang.Text = myreseach("forigen_lang")
        txtw_phone.Text = myreseach("w_phone")
        txth_phone.Text = myreseach("h_phone")
        txtmobile.Text = myreseach("mobile")
        txtfax.Text = myreseach("fax")
        txtaddress.Text = myreseach("address")
        txtemail.Text = myreseach("email")


        'Else()
        'MsgBox("الرقم الذي ادخلته غير صحيح", MsgBoxStyle.Exclamation, "تحذير")
        'End If
    End Sub

ماني عارفه ايش المشكله مع ان هذي الطريقه من كتاب اسمه VISUAL BASIC .NET للمهندس عزب محمد عزب

أختي الكريمة

اليك هذا الرابط سوف يفيدك في عملية البحث بطريقة أفضل بكثير من الطريقة المتبعة في الكود المرفق

واي مساعدة بنقدر عليها نقدمها ان شاء الله

دالة عامة للبحث

الاخت العزيزه هذا هو الايميل الخا ص للمساعده

M_3ryan@hotmail.com

هذا كود سهل جدا وماعليك غير تعديل الاسماء وهو يعمل بشكل جيد واتمنى لك النجاح

Try

Dim strcon As String

strcon = "provider=microsoft.jet.oledb.4.0;data source=library.mdb"

Dim con As New OleDbConnection(strcon)

con.Open()

Dim cmd As New OleDbCommand()

cmd.CommandText = "select * from mamala where no_mamala=" & t2.Text & ""

cmd.Connection = con

Dim rd As OleDbDataReader = cmd.ExecuteReader

If rd.Read = True Then

t1.Text = rd.GetValue(0)

t2.Text = rd.GetValue(1)

t3.Text = rd.GetValue(2)

t4.Text = rd.GetValue(3)

t5.Text = rd.GetValue(4)

Else

MsgBox("رقم الكتاب غير موحود")

clear()

t1.Focus()

End If

rd.Close()

con.Close()

Catch exp As Exception

MsgBox(exp.ToString)

End Try

هذا هو الكود

Try

Dim strcon As String

strcon = "provider=microsoft.jet.oledb.4.0;data source=library.mdb"

Dim con As New OleDbConnection(strcon)

con.Open()

Dim cmd As New OleDbCommand()

cmd.CommandText = "select * from mamala where no_mamala=" & t2.Text & ""

cmd.Connection = con

Dim rd As OleDbDataReader = cmd.ExecuteReader

If rd.Read = True Then

t1.Text = rd.GetValue(0)

t2.Text = rd.GetValue(1)

t3.Text = rd.GetValue(2)

t4.Text = rd.GetValue(3)

t5.Text = rd.GetValue(4)

Else

MsgBox("رقم الكتاب غير موحود")

clear()

t1.Focus()

End If

rd.Close()

con.Close()

Catch exp As Exception

MsgBox(exp.ToString)

End Try

هذي ماهي مشكلة كبيرة يعني :(

اخي الدوسي بس يعني ملاحظة جملة

If rd.Read = True Then

هي نفسها

If rd.Read Then

ولكن هذه المشكلة يا اخوان تسبب مشكلة لو كان ناتج البحث اكثر من صف

فأول صف دائما راح يختفي والأفضل استخدام

while rd.read

والله اعلم

hi

if u want a help plese send the program and buckup ur data base and i will help u

السلام عليكم ورحمه الله وبركاته

اشكركم كل الشكر على تعاونكم معي

وابشركم لقيت لي مبرمج

<<<< مبسووووووووووووطه حدي

الحمد لله يارب