vb中 如何把Text1.text接收到的信息寫進SQL數據庫?

Question

vb中 如何把Text1.text接收到的信息寫進SQL數據庫?

Answer 1

在程序中連結數據庫,通過SQL語句對庫操作!

Answer 2

lsSql ="select * from tab where a='" & text1.text & "'"

Answer 3

可以直接写的
 sql = ""
        sql &= "insert into tbl_media  ("
        If TextBox1.Text.Length <> 0 Then
            sql &= " media_cd,"
        Else
            MsgBox("入力して下さい")
            GoTo END_REPORT
        End If
        If TextBox2.Text.Length <> 0 Then
            sql &= "media_name,"
        Else
            MsgBox("入力して下さい")
            GoTo END_REPORT
        End If
        If TextBox4.Text.Length <> 0 Then
            sql &= "media_kana,"
        Else
            MsgBox("入力して下さい")
            GoTo END_REPORT
        End If
        If tie <> 0 Then
            sql &= " media_type,"
        Else
            MsgBox("入力して下さい")
            GoTo END_REPORT
        End If
        If ComboBox1.Text.Length <> 0 Then
            sql &= "gyosya_cd,"
            sql &= " gyosya_no"
        Else
            MsgBox("入力して下さい")
            GoTo END_REPORT
        End If        sql &= " )"
        sql &= " values ( '" & TextBox1.Text & "' ,"
        sql &= " '" & TextBox2.Text & "', "
        sql &= " '" & TextBox4.Text & "', "
        sql &= " '" & tie & "' , "
        sql &= " '" & (ComboBox1.Text).Substring(0, 4) & "' ,"
        sql &= " '" & Val((ComboBox1.Text).Substring(5, 6)) & "' "
        sql &= " )"
        sql &= " ;"        db.Execute(sql)
        db.Close()
        db = Nothing

Answer 4

謝謝各位的指教。 我試試看﹐beer1012(长青树) 綃的我現在還沒完全看懂。慢慢調試吧。
注﹕可能我表述的不太准確﹐那個Text1.text的內容是隨時更新的﹐它顯示的是一條小靈通發送的信息﹐當下一條信息發過來的時候就被自動覆蓋了﹐現在的要求是﹐當Text1.text每接收一條信息就自動寫進數據庫中對應的表中去

Answer 5

也可以实现的,你在textbox的textchange事件写那些就可以了,那样每次改变内容他自己都会执行的.