VB连接数据库时总报错说 没有找到数据库名称并且未指定默认驱动程序

如果你用的是ADO加接SQLSERVER的话就可参阅以下代码：
VB使用ADO数据库可以分为有源数据库和无源数据库，即是否使用了DSN数据源，如下例：
1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 26 library和 microsoft activeX Data objects recordset 26两个组件，这是在连接数据前所必做的工作。
2、接下来定义ADO的连接对象，如下所示：
Set conn = New ADODBConnection
Set rs = New ADODBRecordset
第一种方法采用的是无源的数据库连接方法
connConnectionString = "Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc"
connConnectionTimeout = 30
connOpen
rsOpen "select 用户名,密码 from login where 用户名='" & Trim(Combo1Text) & "' And 密码='" & Trim(Text1Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText
If rsEOF = True And rsBOF Then
m = MsgBox("请重新登录", vbExclamation)
Text1Text = ""
Text1SetFocus
Else
Form1Hide
End If
rsClose
这是第二种方法连接数据库的方法，这一种方法是采用有源的方法与数据库连接的方法，代码如下所示：
Set conn = New ADODBConnection
Set rs = New ADODBRecordset
connConnectionString = "DSN=login;uid=sa;pwd=;"
connConnectionTimeout = 30
connOpen
rsOpen "select 用户名 from login", conn, adOpenStatic, adLockReadOnly, adCmdText
Dim i As String
For t = 0 To Val(rsRecordCount) - 1
i = Trim(rsFields("用户名")Value)
rsMoveNext
Combo1AddItem i
Next t
rsClose
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
如果你用的是ODBC数据源的话，你可以先通过控制面板里的管理工具里的ODBC数据源创建一个数据源，然后用 dsn=数据源名称即可

以上就是关于VB连接数据库时总报错说 没有找到数据库名称并且未指定默认驱动程序全部的内容，包括:VB连接数据库时总报错说 没有找到数据库名称并且未指定默认驱动程序、、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！