vb 数据库的其他一些操作

Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
Dim pstr As String

pstr = "Provider=Microsoft.Jet.OLEDB.4.0;"    '不能把这里的4.0改为3.51数据库驱动 4.0 For Office 2k/2003, 3.5.1 For Office 97
pstr = pstr & "Data Source=" & db
'pstr = pstr & ";Jet OLEDB:Database Password=" & psw  '如需密码请加上此句

cat.Create pstr
cat.ActiveConnection = pstr

'1''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
tbl.Name = "drugs"
tbl.Columns.Append "ID", adInteger
tbl.Columns.Append "Name", adVarWChar, 20
tbl.Columns.Append "units", adVarWChar, 6
tbl.Columns.Append "totals", adInteger
tbl.Columns.Append "date", adDate

cat.Tables.Append tbl
Set tbl = Nothing

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db & ";Persist Security Info=False"
Adodc1.CommandType = adCmdText                  '设置记录源
Adodc1.RecordSource = "select * from drugs"
Adodc1.Refresh                                   ' 刷新显示
Set DataGrid1.DataSource = Adodc1

Dim rst As New ADODB.Recordset

Set rst = Adodc1.Recordset