如何用SQL语句把多行文本框的内容写入数据库中
编号：QA003436
建立日期: 2000年10月22日 最后修改日期：2000年10月22日
所属类别：
hehaiping:
操作系统：windows98
编程工具：Visaul Basic
问题：想把多行文本框的内容写入数据库中。不用update方法，而是直接用sql语句。（如果是单行文本，可用单引号引起来，但多行文本不行）
回答:
办法虽苯，但可行。
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
）
朱志强的意见：
如果非要用SQL直接操作，可以将多行文本分解成几个字符串，然后用"VBCRLF"将每个符串连接成一个字符串就行了。
此问题由hjh回答。
| |
|
|
| |
|
|
