如何用sql语句把多行文本框的内容写入数据库中.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 31 行

办 法 虽 苯 ， 但 可 行 。 
    Private Sub Command1_Click() 
     Dim MyConn As Database 
     Dim workJet As DAO.Workspace 
     
     Dim sql As String 
     Dim temp As String 
     Dim i As Integer 
     
     
     Set workJet = Workspaces(0) 
     Set MyConn = workJet.OpenDatabase(App.Path & "\VolSnDB.mdb") 
     
     '假 设 table1 只 有 一 个 文 本 字 段 
     
     While i <= Len(Text1.Text) - 1 
     temp = Left(Right(Text1.Text, Len(Text1.Text) - i), 1) 
     If (temp <> Chr(13) And temp <> Chr(10)) Then 
     sql = sql & temp 
     End If 
     i = i + 1 
     Wend 
     sql = "insert into table1 values('" & sql & "')" 
     MyConn.Execute sql, dbFailOnError 
     
    End Sub 
    ） 
<END>    
如 果 非 要 用 SQL直 接 操 作 ， 可 以 将 多 行 文 本 分 解 成 几 个 字 符 串 ， 然 后 用 "VBCRLF"将 每 个 符 串 连 接 成 一 个 字 符 串 就 行 了 。 
<END>