【发布时间】:2013-08-19 14:56:06
【问题描述】:
谁能解决下面的代码请...
注意:前端 vb8 和后端访问 7
Private Sub SaveData()
Dim InsertString As String
InsertString = "Insert into STUDENT DETAILS(SREGNO,SFIRSTNAME,SMIDDLENAME,SLASTNAME,SYEAR,SCOURSE,SSEM,SCLASS,SLANGUAGE)" & "Values('" & Me.TXTSREGNO.Text & "','" & Me.TXTSFIRSTNAME.Text & "','" & Me.TXTSMIDDLENAME.Text & "','" & Me.TXTSLASTNAME.Text & "','" & Me.COMB1SYEAR.Text & "','" & Me.COMB2SCOURSE.Text & "','" & Me.COMB3SSEM.Text & "','" & Me.COMB4SCLASS.Text & "','" & Me.COMB5SLANGUAGE.Text & " ');"
Dim InsertCommand As New OleDbCommand(InsertString, Con)
InsertCommand.ExecuteNonQuery()
MsgBox("New record added successfully.", MsgBoxStyle.Information, "Record Added")
End Sub
【问题讨论】:
-
1.打印结果字符串。 2. 与预期字符串进行比较。 3.修复算法。 4. 转到 1。
-
您能否格式化您的代码,使其更具可读性?
-
另外,考虑使用参数,构建所有类似的查询可能允许用户在您的文本字段中输入引号和wipe your database。
标签: vb.net ms-access sql-insert