数据库表单提交编程，谁给个例子。

[chinagdh]

数据库表单提交编程，谁给个例子。

[xiaomaolover]

嘻~~~!我书里面的例子.你看看吧~~~!
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<Script Languate="VB" Runat="Server">
Sub Page_Load(sender As Object, e As Eventargs)
'使用 Connection 对象打开数据连接
Dim objConn As New OleDbConnection()
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("Grades.mdb")
objConn.Open()

'创建 DataAdapter 对象
Dim objCmd As New OleDbDataAdapter()

'指定SelectCommand属性
objCmd.SelectCommand = New OleDbCommand("Select * From 成绩单", objConn)

'指定UpdateCommand属性及其参数
objCmd.UpdateCommand = New OleDbCommand()
objCmd.UpdateCommand.CommandText = "Update 成绩单 Set 学号=?, " & _
"姓名=?, 会计=?, 统计=? Where 学号=?"
objCmd.UpdateCommand.Connection = objConn
objCmd.UpdateCommand.Parameters.Add("@学号", OleDbType.VarChar, 8, "学号")
objCmd.UpdateCommand.Parameters.Add("@姓名", OleDbType.VarChar, 4, "姓名")
objCmd.UpdateCommand.Parameters.Add("@会计", DbType.Byte, Nothing, "会计")
objCmd.UpdateCommand.Parameters.Add("@统计", DbType.Byte, Nothing, "统计")
objCmd.UpdateCommand.Parameters.Add("@旧学号", OleDbType.VarChar, 8, "学号")
objCmd.UpdateCommand.Parameters("@旧学号").SourceVersion = DataRowVersion.Original

'指定 DeleteCommand 属性及其参数
objCmd.DeleteCommand = New OleDbCommand()
objCmd.DeleteCommand.CommandText = "Delete From 成绩单 Where 学号=?"
objCmd.DeleteCommand.Connection = objConn
objCmd.DeleteCommand.Parameters.Add("@旧学号", OleDbType.VarChar, 8, "学号")
objCmd.DeleteCommand.Parameters("@旧学号").SourceVersion = DataRowVersion.Original

'指定 InsertCommand 属性及其参数
objCmd.InsertCommand = New OleDbCommand()
objCmd.InsertCommand.CommandText = "Insert Into 成绩单 (学号, 姓名, " & _
"会计, 统计) Values (?, ?, ?, ?)"
objCmd.InsertCommand.Connection = objConn
objCmd.InsertCommand.Parameters.Add("@学号", OleDbType.VarChar, 8, "学号")
objCmd.InsertCommand.Parameters.Add("@姓名", OleDbType.VarChar, 4, "姓名")
objCmd.InsertCommand.Parameters.Add("@会计", DbType.Byte, Nothing, "会计")
objCmd.InsertCommand.Parameters.Add("@统计", DbType.Byte, Nothing, "统计")

'创建 DataSet 对象，并将 SelectCommand 的执行结果置入 DataSet 对象中
Dim DS As New DataSet()
objCmd.Fill(DS, "成绩单")
objConn.Close()

'创建 myTable 为 DataTable 对象，且将 DataSet 对象的成绩单数据表指定给 myTable
Dim myTable As DataTable = DS.Tables("成绩单")

'修改数据行
myTable.Rows(6)("统计") = 80

'删除数据行
myTable.Rows(4).Delete()

'新建数据行
Dim myRow As DataRow = myTable.NewRow()
myRow("学号") = "A8608011"
myRow("姓名") = "小丸子"
myRow("会计") = 95
myRow("统计") = 70
myTable.Rows.Add(myRow)

'将 DataSet 对象的数据更新源数据
objCmd.Update(myTable.Select(Nothing, Nothing, DataViewRowState.ModifiedCurrent))
objCmd.Update(myTable.Select(Nothing, Nothing, DataViewRowState.Deleted))
objCmd.Update(myTable.Select(Nothing, Nothing, DataViewRowState.Added))
End Sub
</Script>

[chinagdh]

前面的路渐渐清晰。哈哈， 谢谢各位。 这东西还真是不那么难的。
小事一件.
有一本适合自己的书是最好的。
这些东西跑来跑去都没有跑出STL的框架