قرار دادن اطلاعات بانک در تکس باکس

[hanan.f.1994]

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

لطفا راهنماییم کنید ممنونم

[sagggad]

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

[hanan.f.1994]

نه ممنونم ویزاردی رو بلدم ولی میخوام با کد باشه

[hanan.f.1994]

آقا خودم پیداش کردم

اینم کد برنامه
Dim dt As New DataTable
Dim StrSql As String
Dim Conection As New SqlClient.SqlConnection
StrSql = "select Tch_Name as 'نام',Tch_Family as 'نام خانوادگی',Tch_FatherName as 'نام پدر',Tch_BirthLoc as 'محل تولد',Tch_FormLoc as 'محل صدور',Tch_BirthDate as 'تاریخ تولد',Tch_MeliCode as 'کدملی',Tch_CerNum as 'شماره شناسنامه',Tch_CerNum as 'شماره شناسنامه' from Tbl_Teacher where Tch_MeliCode like '%" + TxtFindET.Text + "%'"
Conection = New SqlConnection(StrConetion)
Conection.Open()
Dim da As New SqlClient.SqlDataAdapter(StrSql, Conection)
da.Fill(dt)
If dt.Rows.Count <= 0 Then
MsgBox("فرد مورد نظر پیدا نشد", vbOKOnly + vbCritical, "خطا")
Else

'////////////////////////////////////

TextBox1.Text = dt.Rows(0)(0)

End If

[farhad85]

آقا سجاد یساز لطفا

[behrooz69]

دوست من واسه هرکاری باید یه Key یا یه کد ثابت یا کلید اصلی داشته باشی که بتونی باهاش عمل جستجو رو انجام بدی .

مثل همین کاری که شما انجام دادی .

نحوه ی کار ساست .

1 ) 1 فیلد ثابت باید داشته باشی مثل شماره شناسنامه یا کد ملی که هیچوقت تکراری نیست .

2 ) یه عمل سرچ ساده

کد : مثاله هاااا

If TxtSanad.Text = String.Empty Then
MsgBox("شماره سند را وارد كنيد", vbExclamation + vbOKOnly, "پيام")
TxtSanad.Focus()
Exit Sub
End If

If TxtSanad.Text.Length > 0 Then

cmd = New SqlCommand()
cmd.Connection = con
cmd.CommandText = "SELECT NameMoshtari,NoeMahsol FROM YourTable WHERE(ShomareSanad=@ShomareSanad)"
cmd.Parameters.Add("@ShomareSanad", SqlDbType.NVarChar, 50).Value = TxtSanad.Text

con.Open()
Dim sReader As SqlDataReader = cmd.ExecuteReader()

If sReader.Read() Then
TxtName.Text = sReader.GetValue(0).ToString()
TxtMahsol.Text = sReader.GetValue(1).ToString

Else : MessageBox.Show("شماره سند مورد نظر پیدا نشد")
End If
con.Close()
End If

این کد ما بر اساس شماره سند جستجو میکنه و میریزه تو تکس باکس هایی که رشته رو بهش دادیم یعنی TxtName و TxtMahsol

این اوکیه ؟؟

3 ) عمل آپدیت از مقادیر رشته های شما حالا چه تکس باکس باشه چه کمبو باکس باشه .

'/// update data ///
Try

cmd.CommandText = "UPDATE YourTable SET NameMoshtari=@NameMoshtari,NoeMahsol=@NoeMahsol WHERE(ShomareSanad=@ShomareSanad)"
cmd.Parameters.Add("@NameMoshtari", SqlDbType.NVarChar, 50).Value = TxtName.Text
cmd.Parameters.Add("@NoeMahsol", SqlDbType.NVarChar, 50).Value = TxtMahsol.Text

con.Open()
Dim count As Integer
count = cmd.ExecuteNonQuery()
con.Close()


If count > 0 Then
MessageBox.Show("تغییرات جدید برای خروج کالا بروز رسانی شد")
Else : MessageBox.Show("سند مورد نظر پیدا نشد")
End If

Catch ex As Exception
MsgBox("لطفا همه گزینه ها را کامل وارد نمایید")
End Try

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

کمکی خواستی در خدمتم یا حق

[behrooz69]

دوست من واسه هرکاری باید یه Key یا یه کد ثابت یا کلید اصلی داشته باشی که بتونی باهاش عمل جستجو رو انجام بدی .

مثل همین کاری که شما انجام دادی .

نحوه ی کار ساست .

1 ) 1 فیلد ثابت باید داشته باشی مثل شماره شناسنامه یا کد ملی که هیچوقت تکراری نیست .

2 ) یه عمل سرچ ساده

کد : مثاله هاااا

If TxtSanad.Text = String.Empty Then
MsgBox("شماره سند را وارد كنيد", vbExclamation + vbOKOnly, "پيام")
TxtSanad.Focus()
Exit Sub
End If

If TxtSanad.Text.Length > 0 Then

cmd = New SqlCommand()
cmd.Connection = con
cmd.CommandText = "SELECT NameMoshtari,NoeMahsol FROM YourTable WHERE(ShomareSanad=@ShomareSanad)"
cmd.Parameters.Add("@ShomareSanad", SqlDbType.NVarChar, 50).Value = TxtSanad.Text

con.Open()
Dim sReader As SqlDataReader = cmd.ExecuteReader()

If sReader.Read() Then
TxtName.Text = sReader.GetValue(0).ToString()
TxtMahsol.Text = sReader.GetValue(1).ToString

Else : MessageBox.Show("شماره سند مورد نظر پیدا نشد")
End If
con.Close()
End If

این کد ما بر اساس شماره سند جستجو میکنه و میریزه تو تکس باکس هایی که رشته رو بهش دادیم یعنی TxtName و TxtMahsol

این اوکیه ؟؟

3 ) عمل آپدیت از مقادیر رشته های شما حالا چه تکس باکس باشه چه کمبو باکس باشه .

'/// update data ///
Try

cmd.CommandText = "UPDATE YourTable SET NameMoshtari=@NameMoshtari,NoeMahsol=@NoeMahsol WHERE(ShomareSanad=@ShomareSanad)"
cmd.Parameters.Add("@NameMoshtari", SqlDbType.NVarChar, 50).Value = TxtName.Text
cmd.Parameters.Add("@NoeMahsol", SqlDbType.NVarChar, 50).Value = TxtMahsol.Text

con.Open()
Dim count As Integer
count = cmd.ExecuteNonQuery()
con.Close()


If count > 0 Then
MessageBox.Show("تغییرات جدید برای خروج کالا بروز رسانی شد")
Else : MessageBox.Show("سند مورد نظر پیدا نشد")
End If

Catch ex As Exception
MsgBox("لطفا همه گزینه ها را کامل وارد نمایید")
End Try

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

کمکی خواستی در خدمتم یا حق