dbczhaoy 发表于 2002-11-10 19:49:00

如果愿意看的话到下载区去下载我的槽钢绘制程序,就涉及到了数据库的基本操作

该怎么办呢难哦 发表于 2002-11-14 11:09:00

谢谢你的建议....你编的这个程序思路不错.有两个问题请教..

我对这个有几个问题没弄明白:
1:...keyword = "'" & XINGH.Text & "'"
findword = "name = " & keyword....

..sql = "select area,b,d,h,name,r,r1,t,weight from chanel where " & findword....
这个查询语句是查控件XINGH的文本数字,请问如何并成一句?

2:Dim WithEvents adoPrimaryRS As Recordset
....
Set adoPrimaryRS = New Recordset....
该程序中第一个好像是类模块变量,而第二个是过程变量.为何设置两个?可以去掉第一个吗?
谢谢!!!!

dbczhaoy 发表于 2002-11-14 15:46:00

按你自己的思路进行修改了吗。修改后出现了什么问题再提出来好吗

efan2000 发表于 2002-11-16 11:49:00

Re?

1:...keyword = "'" & XINGH.Text & "'"
findword = "name = " & keyword....
..sql = "select area,b,d,h,name,r,r1,t,weight from chanel where " & findword....

其实跟..sql = "select area,b,d,h,name,r,r1,t,weight from chanel where name='" &XINGH.Text & "'" 是一样的意思。

2:Dim WithEvents adoPrimaryRS As Recordset
....
Set adoPrimaryRS = New Recordset....

第一个是声明一个带事件的对象级变量,而第二个是对对象级变量进行初始化。

该怎么办呢难哦 发表于 2002-11-16 11:50:00

那个withwents是RDO远程访问变量定义吧.还不太理解,我的多看看

该怎么办呢难哦 发表于 2002-11-16 11:52:00

谢谢你!

efan2000 发表于 2002-11-16 12:10:00

Re: 那个withwents是RDO远程访问变量定义吧...

<font face="宋体" size=2>
<p>Microsoft VBScript 运行时错误</font> <font face="宋体" size=2 > 错误 '800a139a'</font>
<p>
<font face="宋体" size=2>错误的数量词</font>
<p>
<font face="宋体" size=2>/bbs/inc/ubbcode.asp</font><font face="宋体" size=2>,行159</font>

WithEvents表示声明带事件的对象,声明完后,在顶部下拉框中就有了该对象定义的事件了,当发生事件时,你可以编程去控制,如ADO中的BeginUpdate和EndUpdate表示数据开始更新和数据结束更新时的事件,你可以在其中判断不符合要求的数据不更新。

syk070205 发表于 2010-8-1 18:33:00

直接使用access数据库,具体就是VB自带的数据库。他操作简单,易上手,ADO和DAO数据库比较难!
页: 1 [2]
查看完整版本: VBA与access数据库如何连接?做零件库时如何取值?