| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2348 人关注过本帖
标题:富文本信息存入Access表备注字段时碰到的问题?
取消只看楼主 加入收藏
x432502
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2008-8-5
收藏
 问题点数:0 回复次数:0 
富文本信息存入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
快速回复:富文本信息存入Access表备注字段时碰到的问题?
数据加载中...
 
   



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

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