پیدا کردن یک رکورد با کلید اصلی

[majidgh]

من می خوام فقط کلید اصلی رو از کاربر بگیرم و تمام اطلاعات رکورد رو تو چند تا تکست باکس بهش نشون بدم .
سوالم یکم ساده اس ولی منم تازه کارم ممنون می شم اگه کمکم کنین .

[ascpro]

میتونی این کدو هم در یک دکمه و هم در رویداده lostfocus تکس باکست بنویسی.


SqlDataAdapter1.Fill(DataSet11)
DataView1.Table = DataSet11.Tables(0)
If Len(TextBox1.Text) > 0 Then
DataView1.RowFilter = "code='" & TextBox1.Text & "'"
If DataView1.Count > 0 Then
If MsgBox("آیا مایلید اطلاعات را مشاهده کنید؟", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "") = MsgBoxResult.Yes Then
TextBox2.Text = DataView1.Item(0).Item(1)
TextBox3.Text = DataView1.Item(0).Item(2)
TextBox4.Text = DataView1.Item(0).Item(3)
end if
end if
end if

بازم اگر مشکلی بود در خدمتم.

[zarrin_306]

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

در بالای فرم :

imports Sysytem.Data
Imports System.Data.SqlClient

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

Dim con as sqlconnection
con=new sqlconnection("----------")آدرس کانکت را در این جا وارد کن ***

dim da as sqldataadapter
da=new sqldataadapter("select * from myTable",con)

dim ds as dataset
ds=new dataset
da.fillSchema(ds,schematype.mapped,"group")
da.fill(ds,"group")

dim dr as datarow
dr=ds.TAbles("group").rows.Find(2)****

if not (dr is nothing)then
textbox1.text=dr("Lname")
textbox2.text=dr("Fname")
else
msgbox("یافت نشد")
end if
*** = می تونی از طریق Wizard یک کانکشن به جدولت وصل کنی به از new sqlconnection آدرس را کپی کرده ودر (-------) قرار دهی


**** = عدد 2 شماره رکورد کلید میباشد
اما اگر می خواهی تکست باکس داشته باشی و اون رکورد رو از کاربر بگیری :

dim txtrec as integer
txtrec=val(textbox1.text)

انشاءالله که کفایت کند
موفق باشد

[majidgh]

ممنون بابت راهنماییتون مشکلم حل شد.
اگه بازم مشکل داشتم مزاحمتون می شم .

[majidgh]

یه سوال دیگه .
اگه من متن تکست باکس ها رو عوض کنم چجوری دیتابیس رو آپدیت کنم .

[majidgh]

فکر کنم تونستم درستش کنم . با کمک شما یه مقداری از پروژمو کامل کردم . امیدوارم تا آخرش کمکم کنید . خیلی خیلی ممنون