PDA

View Full Version : ویرایش کردن اطلاعات موجود در DataGrid



ehsanocx
چهارشنبه 10 تیر 1388, 08:20 صبح
سلام دوستان عزیز.
من اطلاعات رو توی فرم ورود اطلاعاتم وارد می کنم و ذخیره می کنم. اطلاعاتی رو که ذخیره کردم رو توی DataGrid نمایش میده. حالا
چطوری می تونم وقتی روی یک رکورد توی DataGrid کلیک کردم اطلاعات اون رکورد رو توی textbox های موجود در فرم ورود اطلاعاتم نمایش بده و من بتونم اطلاعات اون رکورد رو ویرایش کنم و روی همون رکورد ذخیره کنم ؟
ممنون میشم اگه راهنماییم کنید.
با تشکر

M_P_1374
چهارشنبه 10 تیر 1388, 08:32 صبح
Private Sub DataGrid1_Click()
If Adodc1.Recordset.Fields("Field1") <> "" Then
Text1.Text = Adodc1.Recordset.Fields("Field1")
.
.
.
End If
End Sub
Field1: همون اسم فیلد هست

ehsanocx
چهارشنبه 10 تیر 1388, 12:31 عصر
اقا واقعا ممنون از راهنماییت .دستت درد نکنه.
فقط یه مشکلی دارم چرا اطلاعات رو که توی textbox نمایش میده رو ویرایش می کنم و ذخیره می کنم چرا روش ذخیره نمیشه ؟

ehsanocx
چهارشنبه 10 تیر 1388, 12:34 عصر
مشکل دیگر من اینکه هر رکورد رو که انتخاب می کنم بجاش فقط اطلاعات رکورد اول رو چرا نمایش میده توی TextBox ها؟چیکار کنم که فیاد انتخابی من رو نمایش بده؟

M_P_1374
چهارشنبه 10 تیر 1388, 18:10 عصر
من خودم از این کد استفاده میکنم و همیشه هم جواب میگیرم حتی همین حالا هم امتحانش کردم


On Error Resume Next
With Adodc1.Recordset
txtName = .Fields("Name")
.
.
.
End With

ehsanocx
چهارشنبه 10 تیر 1388, 19:10 عصر
این کد رو توی دکمه ذخیره بنویسم ؟
With Adodc1.Recordset
txtName = Adodc1.Recordset.Fields("Name")
.
.
.
End With

اینطوری؟

ehsanocx
چهارشنبه 10 تیر 1388, 19:26 عصر
من توی کد ذخیره این دستور رو نوشتم اما جواب نمیده
' If Adodc1.Recordset.Fields("Code") > 0 Then
' Adodc1.Recordset.AddNew
' txtCode.Text = Adodc1.Recordset.Fields("Code")
' txtName.Text = Adodc1.Recordset.Fields("Name_Family")
' txtTell.Text = Adodc1.Recordset.Fields("Tell")
' txtAddress.Text = Adodc1.Recordset.Fields("Address")
' Adodc1.Recordset.Save
'Adodc1.Refresh

M_P_1374
چهارشنبه 10 تیر 1388, 22:59 عصر
کدتون رو از





If Adodc1.Recordset.Fields("Code") > 0 Then
' Adodc1.Recordset.AddNew
' txtCode.Text = Adodc1.Recordset.Fields("Code")
' txtName.Text = Adodc1.Recordset.Fields("Name_Family")
' txtTell.Text = Adodc1.Recordset.Fields("Tell")
' txtAddress.Text = Adodc1.Recordset.Fields("Address")
' Adodc1.Recordset.Save
'Adodc1.Refresh



به


If Adodc1.Recordset.Fields("Code") <> "" Then
Adodc1.Recordset.AddNew
txtCode.Text = Adodc1.Recordset.Fields("Code")
txtName.Text = Adodc1.Recordset.Fields("Name_Family")
txtTell.Text = Adodc1.Recordset.Fields("Tell")
txtAddress.Text = Adodc1.Recordset.Fields("Address")
Adodc1.Recordset.Update

ehsanocx
پنج شنبه 11 تیر 1388, 11:00 صبح
دوست عزیر با این کدی که دادی . روی دکمه ذخیره کلیک می کنم میگه مقدار بقیه فلد ها خالیه و باید پر شه.
در صورتی که فیلد ها پر هستن.فکر کنم مشکل اینجاست که با این دستور یک رکورد جرید ایجاد میشه که چنین پیغامی میده
لطفا کمک کنید:ناراحت:

M_P_1374
پنج شنبه 11 تیر 1388, 11:10 صبح
وای واقعا عذر میخوام من حواسم به پست اول بود و فکر کردم کد برای جستجو هست واقعا شرمنده ام
کد ثبت اطلاعات باید اینطوری باشه کد بالا اگه AddNew و Update رو نداشته باشه میشه جستجو
اینم کد ثبت


If txtCode.Text <> "" Then
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("Code") = Trim(txtCode.Text)
.
.
.
Adodc1.Recordset.Update
End If