ببخشید بخش مربوط به اکسس نداشتیم همینجا تاپیک زدم
اینو ببینید موقع اینزت کردن ایراد میگیره
ارورش نمیدونم چیه
ضمنا ویندوز اپلیکیشن هستش
اینو ببینید موقع اینزت کردن ایراد میگیره
ارورش نمیدونم چیه
ضمنا ویندوز اپلیکیشن هستش
کد:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim msg As String
Dim title As String
Dim style As MsgBoxStyle
Dim response As MsgBoxResult
msg = "می خواهید ادامه دهید ؟"
style = MsgBoxStyle.YesNo
title = "توجه"
response = MsgBox(msg, style, title)
If response = MsgBoxResult.Yes Then
cm = New OleDbCommand("insert into price (date,price,duration) values (@date,@price,@du)", cn)
cm.Parameters.Add("@date", Date.Today)
cm.Parameters.Add("@price", tprice.Text)
cm.Parameters.Add("@du", "daily")
cn.Open()
cm.ExecuteNonQuery()
cn.Close()
lerror.Text = "قیمت جدید اضافه شد"
End If
End Sub