(10-11-15, 12:56 AM)VB.NET كتب : هذا كود انا استخدمه للبحث وعرض النتائج في الـ TEXTBOX
اتمنى ان يكون المطلوب

DA = New OleDbDataAdapter("select * from Patient where mobile='" & SeBox.Text & "'", DB)
           DA.Fill(DT)
           TextBox3.Text = DT.Rows(0)("NameA")
           TextBox1.Text = DT.Rows(0)("FileNo")

(10-11-15, 01:03 AM)Abdh111 كتب :

(10-11-15, 12:56 AM)VB.NET كتب : هذا كود انا استخدمه للبحث وعرض النتائج في الـ TEXTBOX
اتمنى ان يكون المطلوب

DA = New OleDbDataAdapter("select * from Patient where mobile='" & SeBox.Text & "'", DB)
           DA.Fill(DT)
           TextBox3.Text = DT.Rows(0)("NameA")
           TextBox1.Text = DT.Rows(0)("FileNo")

علي مايبدو إن الكود دا خاص بأكسس صح ؟؟
أخي الكريم انا عاوز كود دوت نت مع سكوال سيرفر 2005
وجزاك الله خيرا

---

DA = New OleDbDataAdapter("select * from Patient where mobile='" & SeBox.Text & "'", DB)
DA.Fill(DT)
TextBox3.Text = DT.Rows(0)("NameA")
TextBox1.Text = DT.Rows(0)("FileNo")


الكود دا لا يعمل معي 

أنا أريد كود بحث في جدول sql server 2005 وعرض النتائج في تكست بوسك
وجزاكم الله خيرا

(10-11-15, 12:56 AM)VB.NET كتب : هذا كود انا استخدمه للبحث وعرض النتائج في الـ TEXTBOX
اتمنى ان يكون المطلوب

DA = New OleDbDataAdapter("select * from Patient where mobile='" & SeBox.Text & "'", DB)
DA.Fill(DT)
TextBox3.Text = DT.Rows(0)("NameA")
TextBox1.Text = DT.Rows(0)("FileNo")

(10-11-15, 01:34 AM)VB.NET كتب : هذا الكود مع الـ SQL SERVER 2005

DA = New SqlClient.SqlDataAdapter("select * from [Nationalitys] where [NationNum] ='" & TextBox6.Text & "' ", DB)
           DA.Fill(DT)
           TextBox7.Text = DT.Rows(0)("NationName")

---

الكود شغال معي اخوي ABDH111

---

ABDH111 اخوي


ارفع مثال وان شاء الله اعمله لك



الله يوفقك حبيت اساعدك بالذي اقدر عليه

(10-11-15, 03:26 AM)Abdh111 كتب :

(10-11-15, 01:34 AM)VB.NET كتب : هذا الكود مع الـ SQL SERVER 2005

DA = New SqlClient.SqlDataAdapter("select * from [Nationalitys] where [NationNum] ='" & TextBox6.Text & "' ", DB)
           DA.Fill(DT)
           TextBox7.Text = DT.Rows(0)("NationName")

---

الكود شغال معي اخوي ABDH111

---

ABDH111 اخوي


ارفع مثال وان شاء الله اعمله لك



الله يوفقك حبيت اساعدك بالذي اقدر عليه

جزاك الله خيرا النت كان ضعيف ماكنت شايف ردك ده جزاك الله خيرا اخي الفاضل

(10-11-15, 01:34 AM)VB.NET كتب :

---

الحمد لله وجزاكم الله خيرا ياجماعة الخير

الكود اشتغل معي بفضل الله عزوجل ثم بفضل عونكم لي

لكن ظهرت لي مشكلة أخري

انا بختار اسم من الكمبو بوكس في شاشة اليوزر 
اضغط عرض يعرض بيانات الاسم 

لكن المشكلة تاني مرة لما اختر اسم ثاني واختر عرض لا يعرض الاسم الأول مهما غيرت الاسم اللي بختاره ؟؟

PHP كود :

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
        'عرض كل بيانات المستخدم بعد اختياره من الكمبو بوكس      
        Try
            'Call conecDB() مازال الاتصال مفتوحاً من من فورم لود                   'SQL = "SELECT * FROM Tab_Users Where G_ID =" & (Cmb_All_Users.SelectedIndex"

            Dim Cindx As Integer = Val(Cmb_All_Users.SelectedIndex + 1)

            Call conecDB() : Call initCMD()

            SQL = "Select * from Tab_Users where G_ID= '" & Cindx & "'"                          'MsgBox(Cindx)

            ad = New SqlDataAdapter(SQL, Conn)

            ad.Fill(ds, "tab_Users")

            Txt_User_Name.Text = ds.Tables("Tab_Users").Rows(0).Item(1)
            Txt_Pwd.Text = ds.Tables("Tab_Users").Rows(0).Item(2)
            Cmb_User_Kind.Text = ds.Tables("Tab_Users").Rows(0).Item(3)

            ad.Dispose()
            ad = Nothing
            closeDB()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        'تعبئة الكمبيو بوكس من قاعدة البيانات
        '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
    End Sub 


(10-11-15, 02:09 AM)khodor1985 كتب :

PHP كود :

dim sqlstr as String = "Select ID,Fname,Lname,Address From Person Where Fname=@Fname"
Dim cmd as new SqlCommand(sqlstr,con)
cmd.Parameters.AddWithValue("@Fname",me.cboFname.Text)
con.open
Dim dr as SqlDataReader
dr = cmd.ExecuteReader
While dr.Read
Me.txtID.Text = dr.Item("ID")
Me.txtFname.Text = dr.Item("Fname")
Me.txtLname.Text = dr.Item("Lname")
Me.txtAddress.Text = dr.Item("Address")
End While
dr.close
con.close