方法参数必须用括号括起来

Question

有人可以解释一下这个错误以及如何解决它吗？我不断得到：

D:\A New Project\Proforma\UserLogon.vb(31,24)：错误 BC30800：方法参数必须括在括号中。 D:\A New Project\Proforma\UserLogon.vb(31,29): 错误 BC32017: 逗号，')'，或预期的有效表达式延续。

每当我尝试将数据插入下面描述的表中时。

谢谢，

表定义：

CREATE TABLE [dbo].[LogonTable] (
    [Id]       INT           IDENTITY (1, 1) NOT NULL,
    [UserName] NVARCHAR (50) NOT NULL,
    [DateIn]   SMALLDATETIME NULL,
    [DateOut]  SMALLDATETIME NULL,
    PRIMARY KEY CLUSTERED ([Id] ASC)

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'Dim dteAdded As String = DateTime.Now.ToString("yyyy-MM-dd hh:mm")
        'Dim dteAdded As DateTime = Now()
        Dim dteAdded As DateTime
        'Dim stmnt As String = "Insert into LogonTable(UserName) values ('" & AuthUser & "')"
        Stop
        If SQL.HasConnection = True Then
            If IsAuthenticated() = True Then
                AuthUser = TextBox1.Text
                'dteAdded = Now()
                Stop
                'SQL.ExecQuery("Insert into LogonTable(UserName, DateIn) values ('" & AuthUser & "', '" & dteAdded & "'")
                'SQL.ExecQuery("Insert into LogonTable(UserName, DateIn) values (AuthUser,dteAdded)")
                Insert into LogonTable(UserName, DateIn) values (AuthUser,Now())
    
                Me.Hide()
                MainScreen.Show()
                'Me.Close()
            End If
        End If
end sub

Answer 1

通过将 DateTime 声明为 String 来规避该问题：

        AuthUser = TextBox1.Text
        Dim dteAdded As String

        Stop
        dteAdded = Now().ToString("yyyy-MM-dd hh:mm")

        'convert date time to string
        SQL.SQLDS.Clear()
        SQL.ExecQuery("Insert into LogonTable(UserName, DateIn) values ('" & AuthUser & "', '" & dteAdded & "')")

谢谢