+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [كود] هذا كود للكمبو بوكس يقوم بعرض البيانات داخل التيكست بوكس حسب الرقم (/showthread.php?tid=11730)
هذا كود للكمبو بوكس يقوم بعرض البيانات داخل التيكست بوكس حسب الرقم - احمد عبد الحكيم - 15-03-15
بسم الله الرحمن الرحيم السلام عليكم شباب
هذا كود يقوم بجلب البيانات من قاعدة البيانات داخل التيكست بوكس حسب رقم التسلسلى
PHP كود :
Dim cmd As New OleDbCommand("SELECT * FROM malem WHERE malemID LIKE '" & ComboBox2.Text.Trim & "'", Con)
If Con.State = ConnectionState.Open Then
Con.Close()
End If
Con.Open()
Dim dr As OleDbDataReader = cmd.ExecuteReader()
While dr.Read()
Dim malemName As String = dr("malemName").ToString()
Dim nakeName As String = dr("nakeName").ToString()
Dim malemAddress As String = dr("malemAddress").ToString()
Dim malemPhone As String = dr("malemPhone").ToString()
txtNam.Text = malemName
txtnName.Text = nakeName
txtAddr.Text = malemAddress
txtPhon.Text = malemPhone
End While
Con.Close()
dr.Close()
RE: هذا كود للكمبو بوكس يقوم بعرض البيانات داخل التيكست بوكس حسب الرقم - ramo - 24-06-15
كيف حالك اخي لو سمحت ممكن تشرح لي هذا الكود شرح مبسط
RE: هذا كود للكمبو بوكس يقوم بعرض البيانات داخل التيكست بوكس حسب الرقم - mohmdnader - 04-08-15
السلام عليكم
شكرا جزيلا على الكود
ولكن هل تستطيع شرح الكود؟
RE: هذا كود للكمبو بوكس يقوم بعرض البيانات داخل التيكست بوكس حسب الرقم - CLARO - 29-05-16
مشكورورورورورورور على الموضوع الرائئئععع
مشكورورورورورورور على الموضوع الرائئئعععععع
RE: هذا كود للكمبو بوكس يقوم بعرض البيانات داخل التيكست بوكس حسب الرقم - aliday03 - 30-06-16
PHP كود :
Try
Dim da As New OleDbDataAdapter("SELECT * FROM malem WHERE malemID LIKE '" & ComboBox2.Text.Trim & "'", Con)
Dim dt As New DataTable
da.Fill(dt)
txtNam.Text = dt.Rows(0)("malemName").ToString
txtnName.Text = dt.Rows(0)("nakeName").ToString
txtAddr.Text = dt.Rows(0)("malemAddress").ToString
txtPhon.Text = dt.Rows(0)("malemPhone").ToString
Catch ex As Exception
Exit Sub
End Try
RE: هذا كود للكمبو بوكس يقوم بعرض البيانات داخل التيكست بوكس حسب الرقم - عماد السيد - 11-11-18
روعهههههههههه