导入本地2--插入参数中指定个数的值_tbl.columns.append的参数-优快云博客

博客展示了导入本地试验2的代码，需引入Microsoft相关库。代码实现从html table提取表头，在本地新建mdb文件，以表头为字段，再循环写入表体数据。包含创建数据库、数据表，以及向表中添加新记录等操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'----------------------------------------------------------------------------------
' '（1）导入本地试验2：
'需要引入的有：Microsoft ADO Ext 2.1. For DDL Security and Microsoft ActiveX Data Objects 2.5 Library以上
Public Sub Command1_Click3(recordCount As Integer)

'首先，从html table中提取出表头（传为参数）(no)

'在本地新建一个mdb文件，各字段为表头（ok)
'打开mdb文件，循环写入表体数据（ok)

Dim cat As New ADOX.Catalog
Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection
Dim i As Integer

' pstr = "Provider=Microsoft.Jet.OLEDB.4.0;" '不能把这里的4.0改为3.51
pstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=d://firstdb.mdb" '！还要改进，让用户自己选择存在本地的路径

cat.Create pstr '创建数据库
Dim tbl As New Table
cat.ActiveConnection = pstr
   tbl.Name = "tangdb" '表的名称
   tbl.Columns.Append "编号", adInteger    '表的第一个字段
   tbl.Columns.Append "姓名", adVarWChar, 8 '表的第二个字段
   tbl.Columns.Append "住址", adVarWChar, 50 '表的第三个字段
   cat.Tables.Append tbl    '建立数据表
conn.Open pstr
rs.CursorLocation = adUseClient
rs.Open "tangdb", conn, adOpenKeyset, adLockPessimistic
For i = 0 To recordCount
rs.AddNew    '往表中添加新记录
'插值
rs.Fields(0).Value = i
rs.Fields(1).Value = "唐辉天"
rs.Fields(2).Value = "tetdmis"
rs.Update

rs.MoveNext

Next i

End Sub