خواندن مشخصات فرد با دادن کد او

[nazanin65]

سلام
یک جدول کارمند داریم
می خایم با دادنه کد اون کاربر داخل تکس باکس
مشخصات اون کارمند داخل چندیدن لیبل نمایش داده بشه:لبخندساده:

در ضمن من مبتدی هستم:خجالت:

[ali_md110]

شما نیار به کد جستجو دارید
کد زیر رو براتون گزاشتم بانک برنامه نوع اکسس هست میتونید با یک کمی تغییر اونوو به اسکیول سرور تعییر بدید

Private Sub search(ByVal str As String)

Dim CNN As OleDbConnection
Dim DataReader As OleDbDataReader
Dim Command As OleDb.OleDbCommand
Dim cnnstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\db.mdb"
CNN = New OleDbConnection(cnnstr)
' Try
Dim SQL As String = "SELECT * FROM persons WHERE codeperson= @person"
Command = New OleDbCommand(SQL, CNN)
Command.CommandType = CommandType.Text
Command.Parameters.Add("@person", Data.OleDb.OleDbType.nVarChar, 50).Value = str

CNN.Open()
DataReader = Command.ExecuteReader

If DataReader.HasRows Then


While DataReader.Read()

label1.text = (DataReader.Item("name"))
label2.text = (DataReader.Item("famil"))
به تعداد فیلدهاتون میتونید اینچا لیبل بزارید و خاصیت
دیتاریدر رو به نام فیلد بانگتون ست کنیدitem
End While

Else
msgbox("کارمندی یافت نشد")
End If

DataReader.Close()
CNN.Close()



End Sub

فقط کافیه کد زیر رو توی یک دگمه صدا یزنید

search(textbox1.text)