特急VB中动态创建access数据库以及数据库表

发布网友发布时间：2022-04-11 23:25

共3个回答

懂视网时间：2022-04-12 03:46

1.动态创建表结构，引入com中的二个动态库，一个是ADOX,一个是ADODB二个dll，ADOX.dll和Interop.ADODB.dll 2.增加wfm中的按钮，按钮事件如下：其中的m_path是当前程序运行的路径，可以写绝对路径，目前是相对路径。 private void button1_Click(object send

1.动态创建表结构，引入com中的二个动态库，一个是ADOX,一个是ADODB二个dll，ADOX.dll和Interop.ADODB.dll

2.增加wfm中的按钮，按钮事件如下：

其中的m_path是当前程序运行的路径，可以写绝对路径，目前是相对路径。

private void button1_Click(object sender, EventArgs e)
{
string strdb = m_path + "\DomTest.mdb";

if (File.Exists("" + strdb + "")) //先判断当前是否存在该数据库，没有则创建
{

MessageBox.Show("当前存在数据库,请先删除掉", "信息提示");
return;
}
ADOX.Catalog catalog = new Catalog();

catalog.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= + strdb + ;Jet OLEDB:Engine Type=5");

ADODB.Connection cn = new ADODB.Connection();

cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= + strdb + ", null, null, -1);
catalog.ActiveConnection = cn;

ADOX.Table table = new ADOX.Table();
table.Name = "Table1";

ADOX.Column column = new ADOX.Column();
column.ParentCatalog = catalog;
column.Name = "RecordId"; //列名称
column.Type = DataTypeEnum.adInteger; //列数据类型
column.DefinedSize = 9;//大小
column.Properties["AutoIncrement"].Value = true; //是否是自动增加属性
table.Columns.Append(column, DataTypeEnum.adInteger, 9); //增加第一列
table.Keys.Append("TablePrimaryKey", KeyTypeEnum.adKeyPrimary, column, null, null);
table.Columns.Append("Name", DataTypeEnum.adVarWChar, 50); //增加第二列
table.Columns.Append("Age", DataTypeEnum.adInteger, 9); //增加第三列
table.Columns.Append("Birthday", DataTypeEnum.adDate, 0);//增加第四列
catalog.Tables.Append(table); //增加当前的表

cn.Close();
MessageBox.Show("创建数据库成功，位置存放在" + m_path, "信息提示");
}

热心网友时间：2022-04-12 00:54

Form2中：
Private Sub Form_Load()
On Error Resume Next
db = App.Path & "\" & Form1.Text1 & ".mdb"
If Dir(db) = "" Then If MsgBox("无此数据库！", 48) <> vbYes Then Exit Sub
Set con = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
Set rs.ActiveConnection = con
End Sub
参考本程序修改你的代码

热心网友时间：2022-04-12 02:12

这个简单。

通过变量调用数据源。