本文主要是介绍对数据库（Access）的一些操作--对表的操作，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！
1、增加表
cnn.Execute("CREATE TABLE [" & TextBox1.Text & "] ( 序号 VARCHAR(50) PRIMARY KEY , 名字 VARCHAR(50) , 年龄 VARCHAR(50) )")
2、删除表
If MsgBox("确定要删除表" & TextBox1.Text & "吗？", MsgBoxStyle.YesNo, "削除確認") = DialogResult.Yes Then
cnn.Execute("drop table [" & TextBox1.Text & "]")
3、改表名
'这个方法不行！不能用语句改，会出错！
'ALTER TABLE <原表名> RENAME <祈衰名>
'cnn.Execute("ALTER TABLE " & frmmain.tblstr & "RENAME TO " & TextBox1.Text)
'这个方法OK！把旧表复制到一个新表中，然后删除旧表，从而实现改名
'SELECT * INTO newTbl FROM OldTbl
'DROP TABLE OldTbl
cnn.Execute("SELECT * INTO [" & NewTable & "] FROM [" & OldTable & "]") '2006/12/18 変更
cnn.Execute("DROP TABLE [" & OldTable & "]")
4、取表名，并添加到ComboBox控件中
Dim cnn As ADODB.Connection
Dim cat As ADOX.Catalog 再添加引用[Microsoft ADO Ext2.7 for DLL and Security]
cnn = New ADODB.Connection
cat = New ADOX.Catalog
' Get the current path
ChDir(".")
cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source= db1.mdb")
'connect the catalog
cat.ActiveConnection = cnn
'Create the Tables' name list of the comboBox
For Each tbl In cat.Tables
If tbl.Type = "TABLE" Then ' 通常のテーブルの場合だけ
CmbDic.Items.Add(tbl.Name)
End If
Next
这篇关于对数据库（Access）的一些操作--对表的操作的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！
