From a3436b59ad2b4e3fd97e7b847407fc7f9119aa39 Mon Sep 17 00:00:00 2001 From: xiaochou164 Date: Tue, 15 Aug 2023 11:07:13 +0000 Subject: [PATCH] =?UTF-8?q?=E6=9B=B4=E6=96=B0=20vbalinkmysql.txt?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- vbalinkmysql.txt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/vbalinkmysql.txt b/vbalinkmysql.txt index 72e1442..ffbd5ce 100644 --- a/vbalinkmysql.txt +++ b/vbalinkmysql.txt @@ -27,12 +27,12 @@ Public Sub AutoRun() If VBA.Err.Number <> 0 Then strDBinf = "DSN=mysqlinklexcel64" '标准语句 - VBA.MsgBox "32位DSN连接失败,尝试使用mysqlinklexcel6连接!" + VBA.MsgBox "32位DSN连接失败,尝试使用mysqllinkexcel6连接!" Call conn.Open(strDBinf) End If If VBA.Err.Number > 1 Then - VBA.MsgBox "连接异常,请检查DB环境!" + VBA.MsgBox "连接异常,请检查DB环境!" Set conn = Nothing End If Application.StatusBar = "数据库连接成功"