VB 运行中出现 [Microsoft][ODBC驱动程序管理器]未发现数据源名称并且未指定默认驱动程序

发布网友发布时间：2022-10-15 07:54

共5个回答

热心网友时间：2023-10-07 10:32

首先检查你的ODBC数据源是否设置完成，然后是你的代码中缺少数据源的链接信息
Dim cnn As New ADODB.Connection ’设置到数据源的链接信息
Dim rst As New ADODB.Recordset ‘设置记录源
Dim s As String
s = "dsn=（ODBC数据源中的用户数据源名称）;uid=（用户名）;pwd=（密码）"
'例如 s = "dsn = 图书管理;uid = ;pwd = "
cnn.Open s
rs.Open "select * from 密码 where 操作员名称= '" & Trim(txtuser.Text) & "'and 密码='" & Trim(txtpwd.Text) & "'and 操作员级别='系统管理员'", cnn, adOpenKeyset, adLockOptimistic

这样的话应该就没问题了

热心网友时间：2023-10-07 10:33

因为你没建立数据源啊，或者你的ADO控件没有连接到数据源ODBC上，你先到控制面板的管理工具里去建立数据源指到你的数据库文件上，然后在VB界面上的ADO控件的conn什么属性上连接到你建立的数据源才能使用

热心网友时间：2023-10-07 10:33

cnn没设置或设置错误，比如cnn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\abc.mdb" & ";jet oledb:database password=123" 'abc为数据库名称，123为数据库密码

热心网友时间：2023-10-07 10:34

没有设置数据源啊

热心网友时间：2023-10-07 10:35

数据库的程序在哪里链接数据库是要写代码的追问那要怎么写才能运行成功？

追答http://wenku.baidu.com/view/bdd0c60303d8ce2f0066235f.html
你可以看下这个文库有详细的链接数据库介绍