這是插入語句：sqlcmd.ExecuteReader("insert into t_login(id) values('" & CStr(Trim(TextBox1.Text)) & "'")
但是卻出錯不明白那里有問題

为什么多了半边的）

sqlcmd.ExecuteReader("insert into t_login (id) values ('" & CStr(Trim(TextBox1.Text)) & "'）")

一樣提示
ID的類型是varchar(50)
'從字串 "insert into t_login (id) values " 至型別 'Integer' 的轉換是無效的。

Dim strCommText01 As String
        Dim daTempComm01 As OleDb.OleDbCommand
        strCommText01 = "INSERT INTO [testData] (test1) VALUES ('" & CStr(Trim(TextBox1.Text)) & "');"
        daTempComm01 = New OleDb.OleDbCommand
        daTempComm01.Connection = cnnDB
         = strCommText01
        daTempComm01.ExecuteNonQuery()

收到的鲜花

• jxyga111 于 2008-11-19 17:10 送鲜花  9朵   附言：謝謝，但我用的是SQL

害得我还帮你建立了个表来测试！

Dim strcmd As String
        Dim sqlcn As SqlConnection = New SqlConnection(strcon)
        sqlcn.Open()
        strcmd = "select id from t_login"
        Dim sqlcmd As SqlCommand = New SqlCommand(strcmd, sqlcn)
        Dim dr As SqlDataReader
        dr = sqlcmd.ExecuteReader
        Do While dr.Read
            If Trim(TextBox1.Text) = dr.Item(0) Then
                MsgBox("該用戶名已存在!")
                Exit Sub
            Else
                Dim sqlcmdcommandtext As String
                sqlcn.Close()
                sqlcn.Open()
                sqlcmdcommandtext = "insert into t_login (id) values ('" & CStr(Trim(TextBox1.Text)) & "'）"
                sqlcmd.ExecuteNonQuery()

                MsgBox("申請成功，請登入!")
                Exit Sub
            End If
        Loop


謝謝你了，這是我做的，你幫忙看下有什么問題

在 sqlcmd.ExecuteNonQuery()前面加上这么一句：
   = sqlcmdcommandtext
         就应该没有问题了
你是不是从vb转过来的哦？为什么会用Do While dr.Read  ？

收到的鲜花

• jxyga111 于 2008-11-20 09:33 送鲜花  49朵   附言：謝謝搞定了

是的並且是剛轉

謝謝可以了