VBA与access数据库如何连接?做零件库时如何取值?

dbczhaoy

该怎么办呢难哦

我对这个有几个问题没弄明白:
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

efan2000

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....

第一个是声明一个带事件的对象级变量，而第二个是对对象级变量进行初始化。
[/QUOTE]

该怎么办呢难哦

该怎么办呢难哦

efan2000

Microsoft VBScript 运行时错误 错误 '800a139a'

错误的数量词

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

syk070205

直接使用access数据库，具体就是VB自带的数据库。他操作简单，易上手，ADO和DAO数据库比较难！