|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Application.ScreenUpdating = False
Set con = New ADODB.Connection
con.CursorLocation = adUseClient
con.Open "driver={mysql odbc 5.3 Unicode driver};server=localhost;option=3", "root", "123456" 'database=mysql1;
2:
If con.State = adStateClosed Then
MsgBox "服务关闭中,详情见类模块MYSQL"
con.Open "driver={mysql odbc 5.3 Unicode driver};server=localhost;option=3", "root", "123456" 'database=mysql1;
GoTo 2
Else
Set 记录 = con.Execute("SELECT * FROM " & databasetable & " ;")
arr1 = 记录.GetRows
For r1 = LBound(arr1) To UBound(arr1)
For c1 = LBound(arr1, 2) To UBound(arr1, 2)
str1=str1 & arr1(r1, c1) '这报错 运行时错误‘458’ 变量使用了一个Visual Basic 不支持的自动化(Automation)类型
Next c1
Next r1: str1 = str1 & ";"
|
|
|