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

2019-08-02 02:45:23 158 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

大众点评商家及评分数据（2012-2025）大众点评及商家评分数据库全面覆盖全国范围内多个城市的商户信息，涵盖餐饮、购物、休闲娱乐等多个消费领域，包含商家基础信息、地理坐标、分类体系、经营状态、用户评价、消费水平及服务设施等共计28个字段。阅读详情

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

...全文