بفرما اینم کد مبوط به دکمه save لطفا راهنمایی کنید منو
Protected Sub btnsave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnsave.Click
Dim cnAccess As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + Server.MapPath("~/app_Data/andisheye_no.mdb"))
Dim cmdins As OleDbCommand
Dim strins As String
If cnAccess.State = Closed Then
cnAccess.Open()
End If
strins = "insert into student(stno,name,lname,reshte,course,nomre) values (@stno,@name,@lname,@reshte,@course,@num)"
cmdins = New OleDbCommand(strins, cnAccess)
cmdins.Parameters.AddWithValue("@stno", txtstno.Text)
cmdins.Parameters.AddWithValue("@name", txtname.Text)
cmdins.Parameters.AddWithValue("@lname", txtlname.Text)
cmdins.Parameters.AddWithValue("@reshte", dropreshtenum.SelectedItem.Text)
cmdins.Parameters.AddWithValue("@course", dropcoursenum.SelectedItem.Text)
cmdins.Parameters.AddWithValue("@num", txtnum.Text)
cmdins.ExecuteNonQuery()
If cnAccess.State = Open Then
cnAccess.Close()
End If
End Sub