'(1)导入本地试验一:
'需要引入的有:Microsoft ADO Ext 2.1. For DDL Security and Microsoft ActiveX Data Objects 2.5 Library以上
Public Sub Command1_Click1()
'首先,从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
' 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
rs.AddNew '往表中添加新记录
'插值
rs.Fields(0).Value = 1
rs.Fields(1).Value = "唐辉天"
rs.Fields(2).Value = "低低地"
rs.Update
End Sub