求大神帮助：提示[Miscrosoft][ODBC 驱动程序管理器]未发现数据源名称并且指定默认驱动程序

Question

Private Sub Form_Load()
'定义并创建数据库连接和访问对象
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
'定义数据库连接字符串变量
Dim strCn As String
'定义数据流连接参数变量
Dim db_host As String
Dim db_user As String
Dim db_pass As String
Dim db_data As String
'定义Sql语句
Dim sql As String
'初始化数据库连接变量
db_host = "localhost"
db_user = "root"
db_pass = ""
db_data = "up"
cn.ConnectionString = "DRIVER={MySQL ODBC 8.0 Driver};" & _
"SERVER=" & db_host & ";" & _
"DATABASE=" & db_data & ";" & _
"UID=" & db_user & ";PWD=" & db_pass & ";" & _
"OPTION=3;stmt=SET NAMES GB2312"
cn.Open strCn
cn.CursorLocation = adUseClient
' 访问表 test
sql = "select * from up"
rs.Open sql, cn
MsgBox rs.RecordCount
End Sub

Answer 1

具体连接什么类型的数据库？如果是sqlserver建议不要用odbc