ايران ويج

با سلام
اين برنامه براي اديت ديتا بيس است كه درست كار نمي كند

در صورت امكان اشكال آنرا بفرمائيد يا برنامه ديگري براي اينكار معرفي نمائيد:


Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Select [Students].* From [Students] SQL دستور
Me.OleDa.Fill(Me.DataSet11.Students)
Me.DataBind()
End Sub
Private Sub OleDbDataAdapter1_RowUpdated(ByVal sender As System.Object, ByVal e As System.Data.OleDb.OleDbRowUpdatedEventArgs)
End Sub
Private Sub OleDbConnection1_InfoMessage(ByVal sender As System.Object, ByVal e As System.Data.OleDb.OleDbInfoMessageEventArgs)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mySql As String
Dim drStudents As System.data.OleDb.OleDbDataReader
Dim dr As System.data.DataRow

Dim mCode As Integer
Dim mName As String
Dim mDescription As String

OleCmd.CommandText = "Select max(code) from [Students]"
OleCmd.Connection.Open()
drStudents = OleCmd.ExecuteReader
drStudents.Read()

mCode = drStudents.GetInt32(0) + 1
OleCmd.Connection.Close()

mName = Me.TextBox1.Text
mDescription = Me.TextBox2.Text
mySql = "INSERT INTO [Students] (Code, City, FirstName) VALUES "
mySql = mySql & "(" & mCode & " , '" & mName & "' , '" & mDescription & "')"

OleCmd.CommandText = mySql
OleCmd.Connection.Open()
OleCmd.ExecuteNonQuery()
OleCmd.Connection.Close()

Me.DataSet11.Clear()
Me.OleDa.Fill(Me.DataSet11.Students)
Me.DataBind()
TextBox1.Text = ""
TextBox2.Text = ""
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
OleCmd.CommandText = "Delet from [Students] Where (code)=" & Me.TextBox1.Text
OleCmd.Connection.Open()
OleCmd.ExecuteNonQuery()
OleCmd.Connection.Close()

Me.DataSet11.Clear()
Me.OleDa.Fill(Me.DataSet11.Students)
Me.DataBind()
TextBox3.Text = ""
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim mySql As String
Dim mCode As Integer
Dim mName As String
Dim mDescription As String
mName = Me.TextBox1.Text
mDescription = Me.TextBox2.Text
mCode = Me.TextBox3.Text

mySql = "update [Students] set name='" & TextBox1.Text & "', description = '" & TextBox2.Text
mySql = mySql + "where code = " & mCode

Me.DataSet11.Clear()
Me.OleDa.Fill(Me.DataSet11.Students)
Me.DataBind()
End Sub
End Class