英语翻译Dim myconn As Data.OleDb.OleDbConnection = New Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("~/App_Data/") + "data.mdb;Persist Security Info=False")Dim mysql As StringDim mycmd As Data.OleDb.
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/29 13:03:26
![英语翻译Dim myconn As Data.OleDb.OleDbConnection = New Data.OleDb.OleDbConnection(](/uploads/image/z/5673294-54-4.jpg?t=%E8%8B%B1%E8%AF%AD%E7%BF%BB%E8%AF%91Dim+myconn+As+Data.OleDb.OleDbConnection+%3D+New+Data.OleDb.OleDbConnection%28%22Provider%3DMicrosoft.Jet.OLEDB.4.0%3BData+Source%3D%22+%2B+Server.MapPath%28%22%7E%2FApp_Data%2F%22%29+%2B+%22data.mdb%3BPersist+Security+Info%3DFalse%22%29Dim+mysql+As+StringDim+mycmd+As+Data.OleDb.)
英语翻译Dim myconn As Data.OleDb.OleDbConnection = New Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("~/App_Data/") + "data.mdb;Persist Security Info=False")Dim mysql As StringDim mycmd As Data.OleDb.
英语翻译
Dim myconn As Data.OleDb.OleDbConnection = New Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("~/App_Data/") + "data.mdb;Persist Security Info=False")
Dim mysql As String
Dim mycmd As Data.OleDb.OleDbCommand
Protected Sub Button1_Click(ByVal sender As Object,ByVal e As System.EventArgs)
myconn.Open()
mysql = "update 1 set piaoshu= piaoshu + 1 where name='" + RadioButtonList1.SelectedItem.Text + "'"
mycmd = New Data.OleDb.OleDbCommand(mysql,myconn)
mycmd.ExecuteNonQuery()
myconn.Close()
ClientScript.RegisterClientScriptBlock(System.Type.GetType("System.String"),"_error","window.open('html/tp.aspx')")
Response.Redirect("2.aspx")
End Sub
英语翻译Dim myconn As Data.OleDb.OleDbConnection = New Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("~/App_Data/") + "data.mdb;Persist Security Info=False")Dim mysql As StringDim mycmd As Data.OleDb.
//新建数据库连接对象,参数是数据库的路径
Dim myconn As Data.OleDb.OleDbConnection = New Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("~/App_Data/") + "data.mdb;Persist Security Info=False")
Dim mysql As String //声明字符串类型的变量mysql
Dim mycmd As Data.OleDb.OleDbCommand //声明command对象
//按钮Button1的点击时调用的函数
Protected Sub Button1_Click(ByVal sender As Object,ByVal e As System.EventArgs)
myconn.Open() //打开数据库连接
mysql = "update 1 set piaoshu= piaoshu + 1 where name='" + RadioButtonList1.SelectedItem.Text + "'" //sql语句
mycmd = New Data.OleDb.OleDbCommand(mysql,myconn) //新建命令对象
mycmd.ExecuteNonQuery() //执行sql查询
myconn.Close() //关闭数据库连接
//向前台页面注册一段JS代码
ClientScript.RegisterClientScriptBlock(System.Type.GetType("System.String"),"_error","window.open('html/tp.aspx')")
//重定向到2.aspx页面
Response.Redirect("2.aspx")
End Sub