کد برای جستجو فیلد مورد نظر از دیتا و ظاهر شدن آن روی lable

[Miryam]

سلام دوستان دارم روی برنامه نویسی یک فروشگاه کالای خانگی کار میکنم
می خوام وقتی کد یکی از مشتریا رو وارد میکنم (درون فرم فروش) با زدن دکمه + توی lable روبرو نام مشتری اتوماتیک ظاهر بشه
لطفا راهنمایی کنید:متفکر:

[alimanam]

کمی سرچ میکردین این بحث بارها و بارها و بارها پاسخ داده شده .

Imports System.Data.SqlClient
Public Class Form1

Dim cnnstring As String = "ata Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\mydatabasename.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"
Private Function SearchById(ByVal tablename As String, ByVal fieldname As String, ByVal searchfor As Integer) As Object
Dim ad As New SqlDataAdapter("Select " & fieldname & ",fname from " & tablename & " Where " & fieldname & " = " & searchfor, cnnstring)
Dim dt As New DataTable
ad.Fill(dt)
If Not dt.Rows.Count = 0 Then
Return dt.Rows(0).Item(1)
Else
Return Nothing
End If
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = SearchById("Table1", "ID", 2)
End Sub

End Class

موفق باشید ./

[Miryam]

شرمنده که سوال تکراری پرسیدم
این کد امتحان کردم ولی جواب نداد میشه بیشتر توضیح بدید

[alimanam]

این رو تست کنین ساده تر نوشتم :

Public Class Form1
Dim cnn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\db.mdb")
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ad As New OleDb.OleDbDataAdapter("Select * from Table1 Where id = " & TextBox1.Text, cnn)
Dim dt As New DataTable
ad.Fill(dt)
If Not dt.Rows.Count = 0 Then
Label1.Text = dt.Rows(0).Item(1) & " " & dt.Rows(0).Item(2)
Else
Label1.Text = "رکوردی با این شماره یافت نشد !"
End If

End Sub
End Class

موفق باشید ./

[Miryam]

مرسی آقا علی این یکی جواب داد:تشویق: