您的举报已经提交成功，我们将尽快处理，谢谢！
ADODB.Recordset(0x800A0BB9)--&sql语句出错(sql语句或conn语句未定义或对一个rs属性进行赋值时发生错误)
大家还关注
(window.slotbydup=window.slotbydup || []).push({
id: '2081942',
container: s,
size: '1000,60',
display: 'inlay-fix'VB中，怎么使用ADODB.recordset.open命令怎么打开名字中有空格的数据库表格, VB中，怎么使用ADODB.recordset
VB中，怎么使用ADODB.recordset.open命令怎么打开名字中有空格的数据库表格 open &quot，就无法打开了（前面所有的都定义好了），这句中my file有个空格：;&my file&data source=&quot，请各位大侠指点,myconnection.open &quot！问题补充：
比如 myrs.open &my file&,myconnection,其中有个空格 ddl_512 VB中，怎么使用ADODB.recordset.open命令怎么打开名字中有空格的数据库表格
[my file]用方括号括住VB语言使用ADO连接、操作SQLServer数据库教程
投稿：junjie
字体：[ ] 类型：转载 时间：
这篇文章主要介绍了VB语言使用ADO连接、操作SQLServer数据库教程,本文讲解详细、代码中有大量注释,是非常好的一篇教程,需要的朋友可以参考下
几年前学过的VB几乎忘光了，这几天复习了下。VB连接ADO数据库并不是非常难。
连接第一步（要仔细看）
对于小白来讲，这里的教程最详细，连接ADO数据库第一步，要添加什么部件呢？全称是Microsoft ADO Data Control 6.0 (SP6) (OLEDB) 部件。
在Microsoft ADO Data Control 6.0 (SP6) (OLEDB)部件里有一个名叫：Adodc数据控件，要将它添加。在Adodc数据控件数据位置中找到ACCES。
控件引用的方法（值指的是姓名）
For i = 1 To Adodc1.Recordset.RecordCount
&&&& If Not Adodc1.Recordset.EOF Then
&&&&& Combo1.AddItem Adodc1.Recordset.Fields("值").Value
&&&&& Adodc1.Recordset.Movenext
该代码引用的编写者是ydl890406大大，在VB群中写这东西时，让我借用了，后来我发现有很多错误，y大神修改几次后的还是有错误，干脆重写了一遍，这就是后来的代码。时间过去的很快，VB群也解散了。后来不知为何，现在很多的教程都用了这段代码。
第二部分是AOD的代码连接，由于第二部分涉及到Recordset对象和Connection对象，自己学一下，完全可以自己编写。
何为Recordset对象和Connection对象，Connection对象是与数据源的连接，Recordset对象是操作数据。
寻找Microsoft ADO Data Control 6.0 (SP6) (OLEDB) 部件
VB用ADO连接SQLServer数据库
'数据源信息常量
Public Const conn As String = "Provider = SQLOLEDB.1;Password = UserID = Initial Catalog = StudentF Data Source = localhost"
Public Const CONNECT_LOOP_MAX = 10 '一次执行connect操作，可以访问数据库的次数
Private IsConnect As Boolean '标记数据库是否连接
Private Connect_Num As Integer '标记执行Connect()函数后访问数据的次数
Private cnn As ADDODB.Connection '连接数据库的Connect对象
Private re As ADDODB.Recordset '保存结果集的Recordset对象
//连接数据库
Private Sub Connect()
'如果连接标记为真，则返回。
IF IsConnect = True Then
Set cnn = New ADODB.Connection '关键new用于创建新对象cnn
cnn.ConnectionString = conn
'判断连接的状态
If cnn.State && adStateOpen Then
MsgBox"数据库连接失败"
'设置连接标识，表示已经连接到数据库
IsConnect = True
'断开与数据库的连接
Private Sub DisConnect()
Dim rc As Long
If IsConnect = False Then
Set cnn = Nothing
IsConnect = False
'使用Connect_Num控制数据连接
Public Sub DB_Connect()
Connect_Num = Connect_Num + 1
'使用Connect_Num控制数据断开
Public Sub DB_Disconnect()
If Connect_Num &= CONNECT_LOOP_MAX Then
Connect_Num = 0
Disconnect
'强制关闭api方式访问俄的数据库，计数器复位
Public Sub DBapi_Disconnect()
Connect_Num = 0
Disconnect
'执行数据库操作语言
'byval 就是按参数的值传递，再传递过程中，参数不会发生变化(也就是将参数值而不是将地址传递给过程的方式，这就使过程访问发哦变量的副本，过程不可改变变量的值)；
与之对应的是byref,指按参数的地址传值，byref可以省略
Public Sub SQLExt(ByVal TmpSQLstmt As String )
Dim cmd As mand '创建Command对象cmd
DB_Connect '连接数据库
Set cmd.ActiveConnection = cnn '设置cmd的ActiveConnect属性，指定与其关联的数据库连接
mandText = TmpSQLstmt '设置要执行的命令文本
'MsgBox TmpSQLstmt
cmd.Execute '执行命令
Set cmd = Nothing
DB_DisConnect '断开与数据库的连接
'执行数据库查询语句
Public Function QueryExt(ByVal TmpSQLstmt As String ) As ADODB.Recordset
Dim rst As New ADODB.Recordset '创建Rescordset对象rst
DB_Connect '连接数据库
Set rst.ActiveConnection = cnn '设置rst的ActiveConnection属性,指定与其相关的数据库的连接
rst.CursorType = adOpenDynamic '设置游标类型
rst.LockType = adLockOptimistic '设置锁定类型
rst.Open TmpSQLstmt '打开记录集
Set QueryExt = rst '返回记录集
End Function
您可能感兴趣的文章:
大家感兴趣的内容
12345678910
最近更新的内容
常用在线小工具> 求助：应用自己编写的clone在vb中复制ADODB.Recordset时出错，求点拨本人想试验一
求助：应用自己编写的clone在vb中复制ADODB.Recordset时出错，求点拨本人想试验一
michael820516 & &
发布时间： & &
浏览：72 & &
回复：0 & &
悬赏：0.0希赛币
求助：应用自己编写的clone在vb中复制ADODB.Recordset时出错，求点拨本人想试验一下用自编的clone在vb中复制ADODB.Recordset：
窗体只有一个command1按钮，点击时将rst1&的信息clone至rst2中，这两个两个都为ADODB.Recordset
Private&Sub&Command1_Click()
&&Dim&rst1&As&ADODB.Recordset
&&Dim&rst2&As&ADODB.Recordset
&&&&Set&rst1&=&New&ADODB.Recordset
&&&&Set&rst2&=&New&ADODB.Recordset
&&&&Set&rst2&=&rst1.Clone
克隆程序为：
Public&Function&Clone(ByVal&rstSource&As&ADODB.Recordset)&As&ADODB.Recordset
&&&&Dim&objSm&As&ADODB.Stream
&&&&Dim&rstCopy&As&ADODB.Recordset
&&&&Set&objSm&=&New&ADODB.Stream
&&&&Set&rstCopy&=&New&ADODB.Recordset
&&&&rstSource.Save&objSm,&adPersistXML
&&&&rstCopy.Open&objSm
&&&&Set&Clone&=&rstCopy
&&&&Set&objSm&=&Nothing
&&&&objSm.Close
&&&&&&&&&&&
End&Function
运行时点击按钮出错：3704&对象关闭时不允许操作，监视表达式发现在运行完“Set&rst1&=&New&ADODB.Recordset”
后，rst1中的、AbsolutePosition、EOF、BOF等值均为&对象关闭时不允许操作&
想让clone运行成功，我不知道应该怎么办
现求助于各位大侠，本人小虾米一个，对编程不是很了解，恳请指导一二
你的rst1就没打开过，要执行操作必先打开,示例：
　　Dim&rst1&As&ADODB.Recordset
Dim&rst2&As&ADODB.Recordset
Set&rst1&=&New&ADODB.Recordset&&&&&&&&'新建一个无连接的Recordset
rst1.Fields.Append&"字段一",&adBSTR,&20&&&&'为Recordset添加一个字段
rst1.Open&&&&&&&&&&&&&&&&&&&&&&&&&&&&&'打开Recordset,必须要先打开，才能后继操作
rst1.AddNew&"字段一",&"ppppp"&&&&&&&&&&&&&&'添加一条记录
Set&rst2&=&rst1.Clone&&&&&&&'复制副本,可换为你自己写的Clone,
rst1.Close&&&&'关闭rst1
MsgBox&rst2("字段一")&&&&&&'显示副本字段值
rst2.Close
Set&rst1&=&Nothing
Set&rst2&=&Nothing
是不是没有引用&ado
本问题标题：
本问题地址：
温馨提示：本问题已经关闭，不能解答。
暂无合适的专家
&&&&&&&&&&&&&&&
希赛网 版权所有 & &&adodb.recordset的属性有关问题 - VB当前位置:& &&&adodb.recordset的属性有关问题adodb.recordset的属性有关问题&&网友分享于：&&浏览：51次adodb.recordset的属性问题今天我想用recordset中的findfirst和nomatch来查找符合条件的属性，却发现VB中没有。查一查发现adodb.recordset中竟然没有这两个属性，只有如下属性1.Active
Connention
& 2.Source
& 3.CursorType
& 4.LockType
& 8.filter
& 9.cachesize
& 10.maxrecords
& 11.bookmark
& 12.absoluteposition
& 13.pagesize
& 14.absolutezpage
& 15.pagecount
& 16.editmode
& 17.statue
& 18.clone
& 19.movefirst
& 20.movelast
& 21.movenext
& 22.moveprevious
& 24.getrows
& 25.nextrecordset
& 26.requery
& 27.resync
& 28.addnew
& 29.delete
& 30.update
& 31.cancleupdate
& 32.updatebatch
& 33.surports请问这些属性都有什么用？谁给我一一注解一下其作用？怎么可以用其中属性达到findfirst和nomatch作用？另外findfirst和nomatch是哪个recordset的属性，为什么我的VB书上有介绍，我却用不了？------解决方案--------------------
探讨那用ADO哪个属性可以达到同样效果？
12345678910
12345678910
12345678910 上一篇：下一篇：文章评论相关解决方案 12345678910 Copyright & &&版权所有