这是一个实现在手机上给一个公司的每一人留言的程序,用asp.net 移动开发来制作的。
其中的很多语言同asp.net 是一样的。现在遇到insert 语句的语法错误,小弟实在找不到原因,烦请各位看看。
我将代码打包传上来,用visual studio.net 2003做的,用webmatrix 的网友不能打开,但可以用记事本直接查看。
Private Sub Command2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command2.Click
Dim get_username As String = TextBox1.Text.Trim()
Dim get_password As String = TextBox2.Text.Trim()
Dim get_guest_name As String = TextBox3.Text.Trim()
Dim get_sex As String = SelectionList2.Selection.value.ToString()
'上一句是用了asp.net 移动控件,语法没有错。
Dim get_age As Integer = System.Convert.ToInt32(TextBox4.Text.Trim())
Dim dsn As String = "provider=microsoft.jet.oledb.4.0;data source=" & Server.MapPath("db.mdb")
Dim conn As OleDbConnection = New OleDbConnection(dsn)
conn.Open()
Dim strsql As String = "insert into guest_info(username,password,guest_name,sex,age) values('" & get_username & "','" & get_password & "','" & get_guest_name & "','" & get_sex & "','" & System.Convert.ToInt32(get_age) & "')"
Dim cmd As OleDbCommand = New OleDbCommand(strsql, conn)
cmd.ExecuteNonQuery()
'就是提示这一句语法错误
conn.Close()
ActiveForm = add_user_info
'上一句是将add_user_info的这张卡片设为当前卡片,语句没有错误
End Sub
图片如下:
相关文件(rar):
点这儿打开