View Full Version : پیدا کردن یک رکورد با کلید اصلی
majidgh
یک شنبه 09 اردیبهشت 1386, 17:32 عصر
من می خوام فقط کلید اصلی رو از کاربر بگیرم و تمام اطلاعات رکورد رو تو چند تا تکست باکس بهش نشون بدم .
سوالم یکم ساده اس ولی منم تازه کارم ممنون می شم اگه کمکم کنین .
ascpro
دوشنبه 10 اردیبهشت 1386, 00:02 صبح
میتونی این کدو هم در یک دکمه و هم در رویداده 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
دوشنبه 10 اردیبهشت 1386, 12:52 عصر
اگر می خواهید در جدول براساس فیلدی که کلید میباشد جستجو انجام دهید
از کد زیر زیر استفاده کنید
در بالای فرم :
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
دوشنبه 10 اردیبهشت 1386, 13:08 عصر
ممنون بابت راهنماییتون مشکلم حل شد.
اگه بازم مشکل داشتم مزاحمتون می شم .
majidgh
دوشنبه 10 اردیبهشت 1386, 13:46 عصر
یه سوال دیگه .
اگه من متن تکست باکس ها رو عوض کنم چجوری دیتابیس رو آپدیت کنم .
majidgh
دوشنبه 10 اردیبهشت 1386, 16:29 عصر
فکر کنم تونستم درستش کنم . با کمک شما یه مقداری از پروژمو کامل کردم . امیدوارم تا آخرش کمکم کنید . خیلی خیلی ممنون
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.