اديت و ويرايش داده ها

[yshahab]

سلام ، من ميتونم اطلاعات رو ذخيره كنم اما بلد نيستم همين اطلاعات رو اديت كنم ! به سورسم يه نگاه بندازين و راهنمائيم كنين ممنون .

Private Sub CmndSave_Click()
Dim OleDb As New ClassOleDb
Dim Cmnd As String
Cmnd = "INSERT INTO Article (Type,Fee,Code) Values ('" & _
TxtBoxType.Text & "','" & _
TxtBoxFee.Text & "','" & _
TxtBoxCode.Text & "')"

If OleDb.ExecuteQuery(Cmnd) = True Then
MsgBox "Save Successfully."
Unload Me
End If

Set OleDb = Nothing

End Sub
Private Sub Form_Load()

Call LoadFormCaption(Me)
End Sub

[Ati2008]

کاش این کد ها رو داخل "تگ کد" قرار بدین .آخه اینجوری به هم میریزه .موقع ویرایش اگه دقت کنی یه علامت # میبینی .کلیک کنین روش و کد رو بین اوون قرار بدین. ممنون

[reza_mn]

از دستور Update استفاده کنید:



"update TablaName set FieldName1=NewValue,FieldName2=NewValue2,... where شرط شما برای آپدیت "


بجای ... فیلدهایی که میخواهید مقدار جدیدی دریافت کنند را به همراه , قرار میدهید.