| 网站首页 | 小学教案 | 小学课件 | 小学试卷 | 初中教案 | 初中课件 | 初中试卷 | 高中教案 | 高中课件 | 高中试卷 | 选修课程 | 教师考试 | 心理班会 | 素材 | Map | 
师友资源网: 本站域名www.freezl.net,提供自幼儿园到高中各科各类资源免注册高速免费下载。 设为首页 | 加入收藏 |
您现在的位置: 师友资源网 >> 高中课件 >> 高中信息 >> 课件信息

高中信息技术资源导航
高中信技教案 高中信技课件 高中信技试卷
::最近更新资源::
 高中信息技术基础《VB读取数据库》PPTX多媒体
 高中信息技术基础《算法语法知识:数据类型、
 高中信息技术基础《算法语法知识》复习课PPTX
 高中信息技术基础《过程与自定义函数:自定义
 高中信息技术基础《算法思想:数组与算法》复
 高中信息技术高二PS《海报制作:香水海报》PP
 高中信息技术基础高一《信息的编码》第一课时
 高中信息技术基础高二《算法模式——选择结构
 高一信息技术基础《信息的编码》公开课PPT多媒
信息技术推荐资源
 高中信息技术基础《VB读取数据库》PPTX多媒体课件免
 高中信息技术基础《算法语法知识:数据类型、运算符
 高中信息技术基础《算法语法知识》复习课PPTX多媒体
 高中信息技术基础《过程与自定义函数:自定义函数定
 高中信息技术基础《算法思想:数组与算法》复习课PP
 高中信息技术高二PS《海报制作:香水海报》PPT多媒体
 高中信息技术基础高一《信息的编码》第一课时PPT多媒
 高中信息技术基础高二《算法模式——选择结构》精品
 高一信息技术基础《信息的编码》公开课PPT多媒体课件
 高中信息技术基础高二《算法与程序设计》精品PPT多媒
 高中信息技术基础《初识冒泡排序》优质课PPT多媒体教
 高中信息技术《图像处理基本知识》PPT多媒体教学课件
课件搜索 高级搜索
教学资源本地高速下载地址:
高中信息技术基础《VB读取数据库》PPTX多媒体课件免费下载>>>>>下载地址1  
信息技术相关资源
高中信息技术基础《算法语法知识:数据类型、运
高中信息技术基础《算法语法知识》复习课PPTX多
高中信息技术基础《过程与自定义函数:自定义函
高中信息技术基础《算法思想:数组与算法》复习
高中信息技术高二PS《海报制作:香水海报》PPT
高中信息技术基础高一《信息的编码》第一课时P
高中信息技术基础高二《算法模式——选择结构》
高一信息技术基础《信息的编码》公开课PPT多媒
高中信息技术基础高二《算法与程序设计》精品P
高一信息技术基础3.5智能处理PPT多媒体课件免费
高中信息技术基础《初识冒泡排序》优质课PPT多
高中信息技术《图像处理基本知识》PPT多媒体教
高一信息技术基础3.1文本信息的加工与表达公开
高中信息技术4.2EXCEL2003表格信息加工精品PPT
高中信息技术4.2表格信息加工最新公开课PPT多媒
高中信息技术4.1文本信息加工最新精品PPT多媒体
高中信息技术基础期末复习例题与习题讲解分析P
高中信息技术基础选修《数据结构:线性表》最新
高中信息技术基础《获取网络信息的策略与技巧》
高中信息技术基础第六章信息集成与信息交流复习
信息技术热门资源
 高中信息技术基础高二《算法模式——选择结构》
 高一信息技术基础《信息的编码》公开课PPT多媒
 高中信息技术基础高二《算法与程序设计》精品P
 高一信息技术基础3.5智能处理PPT多媒体课件免费
 高中信息技术基础《初识冒泡排序》优质课PPT多
 高中信息技术《图像处理基本知识》PPT多媒体教
 高一信息技术基础3.1文本信息的加工与表达公开
 高中信息技术4.2EXCEL2003表格信息加工精品PPT
 高中信息技术4.2表格信息加工最新公开课PPT多媒
 高中信息技术4.1文本信息加工最新精品PPT多媒体
 高中信息技术基础期末复习例题与习题讲解分析P
 高中信息技术基础选修《数据结构:线性表》最新
 高中信息技术基础《获取网络信息的策略与技巧》
 高中信息技术基础第六章信息集成与信息交流复习
 高中信息技术基础《IP地址及其管理》最新优质课
 高中信息技术基础《信息技术发展及展望》最新精
 高中信息技术基础《算法及其实现》最新PPT多媒
 高中信息技术基础《信息编码》PPT多媒体课件免
 高中信息技术基础第二章信息获取最新PPT多媒体
 高中信息技术《算法与程序设计:计算机解决问题
::资源内容预览::
资源名称:高中信息技术基础《VB读取数据库》PPTX多媒体课件免费下载


点击下面链接高速下载:
高中信息技术基础《VB读取数据库》PPTX多媒体课件免费下载>>>>>下载地址1  
文件大小: 67 K
添加时间: 2019/1/29 16:20:40
下载次数: 本日: 总计:
资源简介:

VB读取数据库
Rs.Fields(0)
Rs.Fields(“字段名称”)

定义全局对象
Dim conn As New ADODB.Connection '创建数据库对象
Dim rs As New ADODB.Recordset '创建记录对象
数据库连接
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source = " + App.Path + "/food.accdb"
 conn.Open
Set rs.ActiveConnection = conn
'设置查询的SQL语句
  strSQL = “SELECT * FROM  选择题"
  '设置rs的ActiveConnection属性,指定与其关联的数据库链接
  Set rs.ActiveConnection = conn
  '设置游标类型
  rs.CursorType = adOpenStatic
   '设置锁定类型
  rs.LockType = adLockOptimistic
  '打开记录集,将从表song中读取的结果集保存到记录集rs中
  rs.Open strSQL

rs.MoveFirst
Label1.Caption = rs.Fields("题干")
Label2.Caption = rs.Fields("选项A")
Label3.Caption = rs.Fields("选项B")
Label4.Caption = rs.Fields("选项C")
Label5.Caption = rs.Fields("选项D")
rs.MoveNext
Label1.Caption = rs.Fields("题干")
Label2.Caption = rs.Fields("选项A")
Label3.Caption = rs.Fields("选项B")
Label4.Caption = rs.Fields("选项C")
Label5.Caption = rs.Fields("选项D")
移动到最后一条记录用判断当前记录位置解决
rs.RecordCount 记录总数
rs.AbsolutePosition = 1 当前记录为第一条

按钮可用性Enable属性的值为true
解决next和previous错误n=0
Do while Not rs.EOF
   a(n)=rs.fields(“题干”)
   n=n+1
   rs.movenext  
Loop
For i= 1 to n
    List1.additem str(a(i))
Next i

温馨提示
本资源 ,点击关键字可以直接在师友资源网上搜索出相关资料。
更多
  网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)发表评论

说明: 如果您发现该软件不能下载,请通知管理员或点击【此处报错】,谢谢!
未经本站明确许可,任何网站不得非法盗链及抄袭本站资源;如引用页面,请注明来自本站,谢谢您的支持!
本站提供的教育资源,仅可用于教育教学以及相关研究,不得用于商业用途。如果侵犯了你的版权,请联系删除。
| 设为首页 | 加入收藏 | 联系站长 | 友情链接 | 版权申明 | 360网站安全检测平台 | 管理登录 | 
师友资源网| | 免费教学资源高速下载||浙ICP备17044199号-1