富文本信息存入Access表备注字段时碰到的问题?
我想将richtextbox控件内的图文信息放入Access数据库中,保存备注(memo)类型的字段中,在需要的时候再从中取出显示在richtextbox控件内。我编程如下:
rtbContent.TextRTF = rtbContent.RTF
Rs.Field(''content'') = rtbContent.TextRTF
其中content为备注(memo)类型的字段。
1、选择试题函数--点击试题节点后,点“选择”,获得相应试题的内容和答案
Private Sub mnuQuestionSelect_Click()
Dim nodeKind As Integer
Dim questionID As Long
Dim curQuestionInfo As QuestionInfo '试题表中的试题信息
Dim newTestpaperInfo As TestpaperInfo '试卷表中的试题信息
If GetCurrentSelectedNode(nodeKind, questionID) And nodeKind = 3 Then
If SelectQuestion(questionID) Then '选择试题记录
If GetSingleQuestionInfo(questionID, curQuestionInfo) Then
' 取得指定试题ID的试题信息
newTestpaperInfo.questionID = questionID
newTestpaperInfo.content = rtbContent.TextRTF
newTestpaperInfo.answer = rtbAnswer.TextRTF
' content、answer为备注类型字段
End If
Call AppendTestpaperQuestion(newTestpaperInfo)
'过程--将选定试题信息添加到试卷表中
End If
End If
End Sub
2、增加试卷表试题记录
Public Sub AppendTestpaperQuestion(ByRef newTestpaperInfo As TestpaperInfo)
Dim sql As String
sql = "INSERT INTO testpaper(questionID, content, answer ) "
sql = sql _
& " VALUES('" & newTestpaperInfo.questionID & "', '" _
& newTestpaperInfo.content & "', '" _
& newTestpaperInfo.answer & "')"
g_dbconn.Execute sql
' g_dbconn为连接数据库(连接无问题)
End Sub
3、Public Type TestpaperInfo
questionID As Long
content As String
answer As String
End Type
运行的时候未通过,提示是:语法错误(操作符丢失)在查询表达式。点“调试”,显示 g_dbconn.Execute sql 有问题。我不知怎么修改,请路过的大虾们指点一下,谢谢。