typescript获取数据库数据_VBA实例:获取数据库所有表及其字段分拆

最近给客户代写的一个需求，分享给大家。

需求场景：读取数据库的所有表和字段名，并将字段横向分拆到多列。

如需获取工程文件，请私信给我邮箱。

----获取数据库所有表名及字段XML Path

Sub connsql()

  Dim strConn As String, strSQL As String

  Dim conn As ADODB.Connection

  Dim ds As ADODB.Recordset

  Dim col As Integer

  Dim i, j, m, n As Integer

  Dim arr

  '连接数据库的字符串

   strConn = "Provider=SQLOLEDB;Server=" & UserForm1.TextBox1.Text & ";Database=" & UserForm1.TextBox2.Text & ";Uid=" & UserForm1.TextBox3.Text & ";Pwd=" & UserForm1.TextBox4.Text & ";"

   Debug.Print (strConn)