select در پایگاه داده

[vbamirvb]

با سلا دوستان
Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\d2.mdb")
Dim command As New OleDbCommand("select id from t1 ", con)
TextBox3.Text = command.Equals

در این قسمت برای خواندن مقداری از پایگاه داده که تو textbox قرار بدم چه دستوریه


con.Open()
command.ExecuteNonQuery()
con.Close()

[dataking]

با سلام
دوست خوبم لطفا كدها را توي تگ مخصوص بنويس تا به هم ريخته نشوند و دوستان بتونن بخونن و سريع جواب بدن

و اما پاسخ

"Select * From نام جدول where نام فيلد مورد بررسي='" & TextBox1.Text & "'"
شما لطفا سعي كن اگه براتون مقدوره از همين شروع از SQL SERVER به جاي اكسس استفاده كنيد به دلايل زيادي كه اساتيد توضيح داده اند
گر چه اين كد با ديتابيس كاري نداره و هم تو اكسس هم تو SQL درست كار مي كنه
موفق باشيد

[vbamirvb]

نظورمو برعکس متوجه شدین ببخشین
من می خوام اطلاعات رو از پایگاه داده بخونم و تو تکس باکس قرار بدم

[sadeghlinux]

سلام سلام من کد رو تو رویداد تکست چنج نوشتم . اول هر فیلدی رو که خواستی نامش رو وارد میکنی و طبق مثال زیر تکست باکس هاتو پر می کنی.یه سمپل هم برات تو تاپیک قبلیت گذاشتم.

اول کانکشن رو معرفی کن


If TextBox1.Text.Trim <> "" Then
Dim da As SqlDataAdapter = New SqlDataAdapter("Select code,f_fname from tbl_name where code=" & TextBox1.Text.Trim, cn)
Dim dt As New DataTable
da.Fill(dt)
If TextBox1.Text = "" Then
TextBox1.Text = ""
End If

If (dt.Rows.Count > 0) And (TextBox1.Text.Trim <> "") Then
txtcode.Text = dt(0)(0)
txtname.Text = dt(0)(1)
end if