EXCEL VBA连接数据库

EXCEL VBA 连接数据库

1、进入 visual basic---工具-引用—选中红圈选项打钩

2、新建一个模块，方便后期的管理

Public YHZLLJ As String

Public rngCur As Range, Cell As Range, i As Integer

Public sInsert As String, iRowscount As Integer, iRowscount1 As Integer, iRowscount2 As Integer,

iRowscount3 As Integer

Public Con As ADODB.Connec&on

Public JCTSYY As String

Public JCZRR As String

Public JCLS As String

Sub ljsjk()

On Error GoTo ErrHandle:

Set Con = New ADODB.Connec&on

Con.Connec&onString = "Driver={MySQL ODBC 5.3 Unicode Driver};" + _

"Server=127.0.01;" + _

"DB=数据库名称;" + _

"user=用户名;" + _