Dim rst as adodb.recordset为什么不变化？

hjb111 2003-05-06 02:51:21

我装了vb6

当我输入dim rst as adodb.recodset发现列表中没有adodb，为什么？在哪里能找到？

...全文

112 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

online 2003-05-06

打赏
举报

工程--->引用---->microsoft activex data object 2.5

maskzha 2003-05-06

打赏
举报

工程--->引用---->microsoft activex data object 2.5

CityhunterID 2003-05-06

打赏
举报

同意楼上的说。

lihonggen0 2003-05-06

打赏
举报

笔误

工程--->引用---->microsoft activex data object 2.5

lihonggen0 2003-05-06

打赏
举报

部件--->引用---->microsoft activex data object 2.5

大智 Kevin 2003-05-06

打赏
举报

ADO 需要在引用中加在，或者用creatobject() 建立。一般是在projcet->references里加载microsoft activex date object2.5。
之后：
dim rst as adodb.recordset
set rst = new adodb.recordset

Dim rst As ADODB.Recordset sTokens = Split(SQL) Set con = New ADODB.Connection con.Open ConnectString flag = ExecuteSQL(SQL, rst, False) '判断该记录是否存在 If rst.RecordCount <> 0 Then ...

Dim rst As ADODB.Recordset Dim sTokens() As String On Error GoTo ExecuteSQL_Error sTokens = Split(SQL) Set cnn = New ADODB.Connection cnn.Open connectstring If InStr("INSERT,DELETE,UPDATE", UCase$...

Dim rst As New ADODB.Recordset Dim Sqlser_time cnn.ConnectionString = "driver={SQL Server};" & _ "server=server;uid=sa;pwd=;database=master" cnn.Open cmd.ActiveConnection = cnn cmd.CommandText = ...

Dim rst As adodb.Recordset Dim sql As String Dim msg As String sql = "select * from参数配置表" Set rst = selectsql(sql, msg) If rst.recordcount > 0 Then '如果存在记录 sys_borrowlimit = rst.fields(...

Dim rst As New ADODB.Recordset Dim sql As String strcnn = "provider=sqloledb.1;integrated security=sspi;database=students" cnn.Open strcnn sql = "select * from 班级" If xiaoniao = 1 Then Form1....

VB基础类

7,785

社区成员

197,585

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章