第一个VB数据库代码段,几行,ADO的。大家指点。没有错误顺便放点分

Nizvoo 2003-03-27 10:10:38

Set DBConn = CreateObject("ADODB.Connection")
DBConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Password='';Data Source=D:\code\ourlog\db.mdb;Persist Security Info=True"
Set DBQuery = CreateObject("ADODB.RecordSet")
DBQuery.Open "select * from content", DBConn, 1, 1
DBQuery.MoveFirst
Dim I
While Not DBQuery.EOF
For I = 0 To 5 - 1
List1.AddItem DBQuery(I), I

Next

DBQuery.MoveNext
Wend


以前用DELPHI。。。
...全文
90 点赞 收藏 44
写回复
44 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
bracao 2003-04-14
再多解释解释比较好吧!~
回复
lingfengtree 2003-04-12
菜鸟一只,看不出错误,UP一下吧
回复
Nizvoo 2003-04-12
向上前一点,意见多一点。
回复
fangke 2003-04-12
up and up
回复
zhenxizhou 2003-04-12
up
回复
sensibleboy2003 2003-04-12
very good!!!!!!!!
回复
qhdzh 2003-04-12
用App指定数据库的路径
回复
Nizvoo 2003-04-12
谢谢大家的集思广益,我定当受益无穷。
回复
renchen 2003-04-01
如果把:
DBConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Password='';" & _
"Data Source=.\db.mdb;Persist Security Info=True"
改为
DBConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Password='';" & _
"Data Source=192.168.0.1 ;Persist Security Info=True"
是不是就能连上MS sql server 2000 了?
回复
klgzb 2003-04-01
Public Function GetAllID() As Variant

最好改为,public function GetAllID() as object
回复
bigman_lfj 2003-04-01
Source=D:\code\ourlog\db.mdb;Persist Security Info=True"
~~~~~~~~~~~~~~~~~~~~~以后都是麻烦事情
不要将对象模板中的路径进行硬编码。不同的应用程序和不同的安装,其路径也不一样。
就像不应该对任何对象中的路径进行硬编码一样,也不应该将对象模板中的路径进行硬编码。
使用模板的开发人员也许不知道存在硬编码的路径,这可能导致项目运行失败、崩溃,或者更
糟糕的是修改不相关的文件。
回复
chinareny 2003-04-01
连接sql server时还需要指定数据库名和用户名以及密码
例如(没有使用jet引擎,只为了说明上面的东西):
strCn="driver={sql server};server=(local);database=dbname;uid=sa;pwd="
回复
xayzmb 2003-04-01
'===============================================================================
你说的有思想怎样的?我感觉在编程序时总会出现这样那样的漏洞,怎样才能提高这方面的水平??
'===============================================================================
下面是一个提高水平的最有效的方法:






















do
学习
实践
苦脑.....
loop
回复
Nizvoo 2003-03-31
可在下面我的对象已经被除数关闭了,请问它是引用还是值赋?
回复
cbr7619 2003-03-30
另外有一个问题,VB中的返回值。比如下面程序

Public Function GetAllID() As Variant
Dim I
Dim DBConn As Object
Dim DBQuery As Object
Set DBConn = CreateObject("ADODB.Connection")
DBConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Password='';" & _
"Data Source=.\db.mdb;Persist Security Info=True"
Set DBQuery = CreateObject("ADODB.RecordSet")
DBQuery.Open "select * from content", DBConn, 1, 1
GetAllID = DBQuery
DBQuery.Close
Set DBConn = Nothing
Set DBQuery = Nothing
End Function


这样返回值行不行????
+++++++++++++++++++++++++++++++++++++++++++++++++==
是可以的。
回复
aiyaya 2003-03-30
UP一下。
回复
Nizvoo 2003-03-28
我没有说清楚,我是说晚期绑定
late-binding~

就是不用那个引用就可以在运行期进行检查。

回复
fenghanyu 2003-03-28
你说的有思想怎样的?我感觉在编程序时总会出现这样那样的漏洞,怎样才能提高这方面的水平??
回复
xayzmb 2003-03-28
Nizvoo(瓦匠泥→变哑巴) 的关于后期邦定问题:

dim strCon as string
Dim I as long
dim DBCon as ADODB.connection
dim DBQuery as ADODB.recordset
set DBCon = new ADODB.connection
set DBQuery = new ADODB.recordset

strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\code\ourlog\db.mdb;Jet OLEDB:database password ='youtPassword'"
DBCon.Open strCon
DBQuery.Open "select * from table",DBCon

'下面一行是将记录集邦定到一个MSHFlexGrid1控件
SET MSHFlexGrid1.datasource = DBQuery
'下面是将取得的字段值邦定到文本框
text1.text = DBQuery("字段名")

DBQuery.close
DBCon.close
set DBQuery = nothing

'当然
'中间部分应该根据需要
'加入一些处理
'比如错误处理
'记录集判断等等.....
'熟能生巧啊
'编程其实不难
'难在你是不是有思想.....
set DBCon = nothing



回复
victorycyz 2003-03-28
另外有一个问题,VB中的返回值。比如下面程序

Public Function GetAllID() As Variant
Dim I
Dim DBConn As Object
Dim DBQuery As Object
Set DBConn = CreateObject("ADODB.Connection")
DBConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Password='';" & _
"Data Source=.\db.mdb;Persist Security Info=True"
Set DBQuery = CreateObject("ADODB.RecordSet")
DBQuery.Open "select * from content", DBConn, 1, 1
GetAllID = DBQuery
DBQuery.Close
Set DBConn = Nothing
Set DBQuery = Nothing
End Function


这样返回值行不行????
___________________________________________________


这倒是一个好的思路, 行不行不知道,没试过。
不过在.net中肯定不行。
回复
相关推荐
光模块基础知识
光模块内部发射与接收的专业讲解,利于新手快速开发。
android 登陆界面例子
android 登陆界面例子 可以直接运行的
信息安全等级保护管理办法(公通字[2007]43号)
信息安全等级保护管理办法(公通字[2007]43号)
PPT模板下载
PPT模板下载我只是想要点积分啊 
vue-devtools chrome 插件
chrome(谷歌浏览器)vue代码调试插件, 已打包。解压后,通过chrome扩展程序加载即可使用。 使用方法: 1、chrome浏览器输入地址“chrome://extensions/”进入扩展程序页面 2、勾选开发者模式 3、点击“加载已解压的扩展程序...”按钮,选择解压后的chrome文件夹,即可添加成功。 4、添加完vue-devtools扩展程序之后,我们在调试vue应用的时候,ch rome开发者工具中会看一个vue的一栏,点击之后就可以看见当前页面vue对象的一些信息
《UML面向对象需求分析与建模教程》 邹盛荣 主编 电子版 2016.01 .doc
PPT已在CSDN均可免费下载 《UML面向对象需求分析与建模教程》 邹盛荣 主编 电子版 2016.01 .doc 当当网上可购买纸质书: http://product.dangdang.com/23766413.html
STM32F407 / F103 PCF8575模块 控制16个I/O口 IIC通信
本例程为STM32F407控制PCF8575模块的16个I/O口输出,本例程基于正点原子STM32F407 IIC例程修改,本例程中使用PCF8575控制16个继电器。
Java初级从入门到精通
课程分为:J2SE 基础阶段,中级阶段,阶段; 课间会讲解一些小程序的开发:如:猜拳游戏,模拟银行柜员机程序,退休金结算程序等.
比较两张图片差异
比较两张图片差异,代码收集于网上,码收集于网上
c#图片文字-字母-数字自动识别-深入代码-非常好
c#图片文字-字母-数字自动识别-深入代码-非常好
rtl8188eu_USB_linux.tar.gz
TP-LINK TL-WN725N V2 Linux 驱动安装
手把手做安卓应用开发
安豆是一个想学Android应用开发的小白,于是它找到自己的邻居-程序员大牛-熊哥帮忙。熊哥手把手带着安豆搭建程序的开发环境,实现应用的功能,美化应用界面,让安豆终于开发出了自己的第一个安卓应用-计算器。 学习的过程中,两个伙伴有问有答,学习的过程生动有趣。你一定不会睡着。 让从没有接触过安卓开发并且什么都不会的小白,变成一个能够开发出简单的计算器应用的菜鸟。 让小白对安卓开发有个整体的认识,初步形成安卓开发的概念,掌握安卓开发最最基础的知识。
Control-flow Enforcement Technology Preview 2.0 spec
Intel CFI技术手册。 Intel CFI从CPU层次检测和防止ROP/JOP攻击,主要包含shadow stack和endbranch两项技术。 比软件层面的防御方法,如微软的CFG,更有效。目前Intel最新编译器已经支持此技术
后备电池及储能电池巡检白皮书.pdf
后备电池及储能电池巡检白皮书,施耐德电气主编的,数据中心电池巡检白皮书。
CListControl设置颜色
CListControl类派生,设置单元格颜色,丰富功能
OpenGL-实现视频播放(FFMpeg)
课程采用FFMpeg作视频解码,采用OpenGL实现视频的渲染,从RGB数据的绘制,到直接渲染YUV数据,实现三路YUV数据单纹理的输入,提升系统性能,接着采用PBO方式优化内存到显存的传输,实现DMA传输,解放CPU,将解码和渲染分离到不同的线程中,极大的提升了系统的性能。后介绍视频特效的实现。 介绍如何采用OpenGL渲染视频帧数据,从固定管线到可编程管线一次实现,采用PBO实现DMA数据传输处理,以及简单的视频特效的实现。
Groovy精简教程
注重实践,剔除繁琐的理论,通过案例讲解我们常用的知识点,各个知识点之间相对独立,不用担心某一个知识点学不会而耽搁学其他的知识点。轻轻松松入门Groovy。 每一个学员都能掌握Groovy的基本用法。
Linux系统管理员/网络管理员(PDF版)
两本非常好的Linux系统学习的书 系统管理主要介绍Linux系统的结构、管理、命令等 网络管理主要从网络协议角度出发阐述Linux的网络功能
STM32F103中文数据手册
这个里面包含了STM32F103的各种型号的数据手册,方面理解
WPF中用于嵌入其他进程窗口的自定义控件(AppContainer)
WPF中用于嵌入其他进程窗口的自定义控件(AppContainer) 具体见博文:http://blog.csdn.net/zzzwwwppp11199988899/article/details/78131292
MSP430_RTC模块学习总结
这是自己在学习MSP430时,对RTC模块的总结,希望可以帮助刚入门者
CIET-2019-0504 数据中心运维管理人才标准.pdf
数据中心运维管理,人才标准,欢迎查看共同学习。
名师精讲CSS3
CSS3即层叠样式表(Cascading Style Sheet), 在网页制作时采用层叠样式表技术,可以有效地对页面的布局、字体、颜色、背景和其它效果实现更加精确的控制。只要对相应的代码做一些简单的修改,就可以改变同一页面的不同部分,或者页数不同的网页的外观和格式。 本课程讲述了CSS3的实战应用,包括对网页修改以及对页面的布局、字体、颜色、背景和其它效果实现更加精确的控制。 通过本课程的学习,学者将可实现基本网页修改与美化,掌握CSS3对网页修改以及对页面的布局、字体、颜色、背景和其它效果实现更加精确的控制,并逐步达到熟练使用CSS3的学习效果,为自己的职场能力添砖加瓦。
Activiti 工作流入门到大神
什么是流程、工作流作用、Activiti背景简介、Activiti流程设计器安装、Activity环境搭建、通过HelloWorld掌握 Activiti操作流程的步奏、常见API使用、流程部署管理(发布流程、查看流程定义、删除流程、查看流程附件)、流程实例管理(启动流程、查看任务、认领任务、办理任务、查看流程状态) 什么是流程、工作流作用、Activiti背景简介、Activiti流程设计器安装、Activity环境搭建、通过HelloWorld掌握 Activiti操作流程的步奏、常见API使用、流程部署管理(发布流程、查看流程定义、删除流程、查看流程附件)、流程实例管理(启动流程、查看任务、认领任务、办理任务、查看流程状态) QQ:362969068
OpenGL
课程涵盖了OpenGL开发的方方面面,对开发中经常用到的开发知识点进行讲解,从实战的角度进行编码设计. 第1章-环境建立 第2章-基础图元 第3章-三维世界 第4章-纹理多彩世界 第5章-显存的分配-优化 第6章-场景控制 第7章-光照-真实世界 第8章-模型 第9章-UI制作 第10章-场景编辑器制作 第11章-地形 第12章-脚本引入-lua 教程从最最本的固定管线开始,一节课一个知识点,从实战的角度出发,结合项目开发中经常用到的知识点作深入的讲解,以面向对象的编成方式对知识点进行封装,可以直接引入到项目中使用.通过课程的学习,掌握OpenGL图形编程技巧,并能学以致用.
webrtc demo使用方法
谷歌webrtc demo的使用教程,webrtc源代码自行从官网下载,该教程只给出了源代码详细的使用方法,包括如何编译
朴素贝叶斯算法做文本分类-代码
https://blog.csdn.net/zzZ_CMing/article/details/89478436 朴素贝叶斯算法做文本分类,用的是谭松波酒店语料。
FANUC的3210密码破解软件
FANUC 3210 密码破解软件,读取SRAM备份文件,不需要注册,完全免费。
Hibernate4视频教程_全面来袭
本Java视频教程基于 Hibernate4.x 录制。内容涵盖安装 Hibernatetools 插件、Session 核心方法、持久化对象生命周期、对象关系映射(1-n、1-1、n-n、继承映射)、检索策略、检索方式(对象导航图、OID 检索、HQL、QBC、本地SQL)、Hibernate 一\二级缓存、管理 Session、批量处理等 Hibernate 企业级开发的核心技术。 本Java视频教程将帮助掌握学习者编写出具有合理的软件架构,以及好的运行性能和并发性能的实用 Hibernate 应用。Java视频教程内容注重理论与实践相结合,列举大量具典型性和实用价值的 Hibernate应用实例,并提供详细的开发和部署步骤。
PDB符号文件查看工具 symview,pdbxtract
PDB符号文件查看工具, 包含2个工具symview 和pdbxtract symview可查看文件所有原始信息 pdbxtract 可方便查看结构体等信息, 可导出头文件或xml
发帖
VB基础类
创建于2007-09-28

7481

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-03-27 10:10
社区公告
暂无公告