[電腦討論]

ASP的Insert into資料

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim tk_provider = "Provider=Microsoft.Jet.OLEDB.4.0"

        Dim tk_database = "Data Source=" & Server.MapPath("quiz.mdb")

        Dim tk_conn As Data.OleDb.OleDbConnection
        Dim tk_command As Data.OleDb.OleDbCommand
        Dim tk_reader As Data.OleDb.OleDbDataReader
        Dim tk_sql As String

        tk_conn = New Data.OleDb.OleDbConnection(tk_provider & ";" & tk_database)
        tk_conn.Open()
        
        tk_sql = "Select * From basic Where 帳號='" & Me.TextBox1.Text & "'"

        Dim tk_sqlnew As String = "Insert into basic (帳號,密碼,生日,電話,E-mail,管理員帳號,日期) values ('" & Me.TextBox1.Text & "','" & Me.TextBox2.Text & "','" & Me.TextBox4.Text & "','" & Me.TextBox5.Text & "','" & Me.TextBox6.Text & "','" & 0 & "',Now())"
        tk_command = New Data.OleDb.OleDbCommand(tk_sql, tk_conn)
        tk_reader = tk_command.ExecuteReader()


        If tk_reader.Read() Then
            Label8.Text = "此帳號被使用了!!"
        ElseIf (Me.TextBox2.Text <> Me.TextBox3.Text) Then
            Label8.Text = "輸入密碼不相同!!"
        ElseIf (Me.TextBox1.Text = "" Or Me.TextBox2.Text = "" Or Me.TextBox3.Text = "" Or Me.TextBox4.Text = "" Or Me.TextBox5.Text = "" Or Me.TextBox6.Text = "") Then
            Label8.Text = "不允許任何空白!!"
        Else
            Label8.Text = "correct!"
            Session.Timeout = 1
            Response.Redirect("申請成功.aspx")
        End If
        tk_conn.Close()
    End Sub

我是web的新手
參考各方面的資料

我想Insert into資料到,basic的資料表
執行之後,輸入完畢之後
會跳到申請成功,但是
我到登入畫面,用新申請的帳號登入
卻無法登入,沒寫入basic裡面


不知道是哪邊的語法有問題
煩請各位指教,謝謝


tk_sql = "Select * From basic Where 帳號='" & Me.TextBox1.Text & "'"
這一行,我是用來判斷註冊帳號是否和資料庫有重複
有重複,就會出現Label8.Text = "此帳號被使用了!!"
不太會寫驗證,只好用這種寫法

[ 本帖最後由 xbox7210 於 2008-6-16 05:15 編輯 ]
喜歡這篇文章嗎?
回覆 2
您需要登入後才可以回帖 登入 | 註冊會員

本版積分規則 回覆 15 個字以上可拿獎勵,
規則詳見此

精選熱門商品

提示訊息
go_top