标题:富文本信息存入Access表备注字段时碰到的问题?
只看楼主
x432502
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2008-8-5
 问题点数:0 回复次数:3 
富文本信息存入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 有问题。我不知怎么修改,请路过的大虾们指点一下,谢谢。
搜索更多相关主题的帖子: 富文本 字段 备注 Access 
2008-10-08 21:36
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
得分:0 
把SQL语句的内容打出来看,然后人肉检查。
2008-10-08 21:53
三断笛
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:31
帖 子:1621
专家分:1617
注 册:2007-5-24
得分:0 
questID是Long型,SQL中不需要用引号  还是听楼上的自己把SQL语句打出来看看吧
2008-10-09 21:18
haigecnpeng
Rank: 7Rank: 7Rank: 7
等 级:黑侠
威 望:2
帖 子:261
专家分:510
注 册:2008-10-6
得分:0 
sql = sql _
            & " VALUES('" & newTestpaperInfo.questionID & "', '" _
            & newTestpaperInfo.content & "', '" _
            & newTestpaperInfo.answer & "')"


在最后阶段应该是& "');"
有个;的

都说到了.net年代,VB与C#都是一样的!
但为什么招聘的都是C#呢?
2008-10-09 23:28



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-237099-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.058584 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved