Question

我正在尝试在我的数据库中插入新用户，但每次按下注册按钮时，我都会收到一条错误消息：

INSERT INTO语句中的语法错误。

我的代码：

Private Sub cmdReg_Click()
Dim sql As String
Dim recordCount As Long
Dim rst As Long
Dim conn As ADODB.Connection
sql = "insert into LoginPasswords (Teacher_LName, Teacher_FName, PassWord, UserName) values ('" & txtLast.Text & "','" & txtFirst.Text & "','" & txtPass.Text & "','" & txtUser.Text & "')"

     If CurrentCon.State = adStateOpen Then
        CurrentCon.Close
     End If
  CurrentCon.Open
  CurrentCon.Execute sql

End Sub

我该如何解决这个问题。

Answer 1

您的insert语句将取决于数据库的列数据类型。但是，我们可以说，例如，您的数据库中包含所有文本字段。然后，您需要删除每个值周围的引号。

这样的事情：

Set MySet = MyConn.Execute("INSERT INTO Table_Name (col1, col2, col3) VALUES (txtcol1.text,txtcol2.text,txtcol3.text)");

尝试从查询中删除多余的引号。

如果有任何整数值，请更改插入语句，如：

INSERT INTO Table_Name VALUES(CInt(txtcol1.text),txtcol2.text,txtcol3.text);

在数据库中注册新用户

1 个答案: