3D1&page=229&";i23:46 提问
Vb.net 使用AdO连接数据库错误
以下代码为什么老在
Cnn.open(CnnStr)
“未找到提供程序。该程序可能未正确***。”?
已经有引用ADODB.
Imports System.Data.OleDb
Imports ADODB
Dim Cnn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim CnnStr As String = "Provider= Microsoft.Jet.OLEDB.12.0; Data Source = D:\dsstock1.mdb"
Cnn.Open(CnnStr)
Dim SelStr As String = "Select * from Agent"
Rs.Open(Cnn, SelStr, 1, 3)
Rs.AddNew("MPN","first one")
Rs.Update()
Rs.Close()
Cnn.Close()
按赞数排序
发现问题了： Microsoft.Jet.OLEDB.12.0
是错误的。
Microsoft.Jet.OLEDB.4.0
Microsoft.Ace.OLEDB.12.0
是正确的。
692关注|675收录
598关注|105收录
384关注|632收录
其他相似问题vb6.0中ado问题_百度知道vb ADO记录集解决办法 - VB当前位置:& &&&vb ADO记录集解决办法vb ADO记录集解决办法&&网友分享于：&&浏览：18次vb ADO记录集我想问问用recordset产生的记录集怎么读取??比如有一数据库,某张表里有个&文件名&字段,怎么从recordset对象中取出具体的值,并在文本框里显示??------解决方案--------------------whiile not rs.eof&
text1.text=text1.text & rs!文件名 & vbcrlf
rs.movenext& wend
------解决方案--------------------dim rs as new recordsetdim adocon1 as New ADODBSet rs = adocon1.Execute(&select &文件名& from
表） Do While Not Rs.EOF
text1.text=text1.text & rs!文件名 & vbcrlf&
Rs.MoveNext Loop
------解决方案--------------------rs.movefirstWhile Not Rs.EOF&
text1.text=text1.text & rs.Fields(&字段名&)
Rs.MoveNext& wend
12345678910
12345678910
12345678910 上一篇：下一篇：文章评论相关解决方案 12345678910 Copyright & &&版权所有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
最近更新的内容
常用在线小工具