如何用VB编写可以动态生成数据库和表的程序

那只是创建表还不算动态,动态要二维数组,表达行和列

如: Dim myDB As DAODatabase

Set myDB = DAOWorkspaces(0)CreateDatabase("d:\md\lllmdb", dbLangGeneral)

myDBExecute "Create Table " & 表名 & "(" & "id Counter," & mm1 & " Text(10))"

'生成一个d:\md\lllmdb数据库存

myDBClose

打断它: 表名=数组 字段= combo2数组 字段属性= combo3数组

fori=0 to combo2ListCount-1'主工部分处理

myDBExecute "Create Table " & 表名 & "(" & combo2list(i) & combo3list(i) ")"

next

这样生成的表就是一个完全动态的表名,行 列 字段都能自己定义的动态表,

调用查询/删/增/修改都分别以数组

如:

cnOpen "provider=MicrosoftjetOLEDB40;data source=" & ur

sq = "select from " & uyu & " where " & stm(3) & "='" & Form2Text1(3) & "'"

rsOpen sq, cn, adOpenKeyset, adLockOptimistic

If rsRecordCount > 0 Then

MsgBox "" & stm(3) & "重复，不能添加数据", vbExclamation, "查询"

rsClose

cnClose

查询:

For i = 1 To rsRecordCount

Set Fliv = Form1ListView1ListItemsAdd()

FlivText = rsFields(stm(1))

For r = 1 To sn - 1

FlivSubItems(r) = rsFields(stm(r + 1))

Next

rsMoveNext

Next i

'sts = stm(1) & "='" & Form3Text1(1) & "', " & stm(2) & "='" & Form3Text1(2) & "', " & stm(4) & "='" & Form3Text1(4)

For r = 1 To sn - 1

rn = rn + stm(r) & "='" & Form3Text1(r) & "', "

Next

sts = rn & stm(sn) & "='" & Form3Text1(sn)

' Form3Text1(sn)Enabled = False

sq = "Update " & uyu & " set " & sts & "' where " & stm(3) & "='" & Form3Text1(3) & "'"

cnExecute (sq)

MsgBox "数据修改完成", vbInformation, "修改"

cnClose

Set cn = Nothing

Form1ListView1ListItemsClear '先清空表格里的数据

加载列表数据

设成公用变量,全换成数组之后,反面简单明了

只用提供表名,及字段马上就可以生成你需要数据库动态数组的交集就是所需字

记录查询和调用都极为便利更重要的是大大减小了数据库负担

如下：

用access建立一个数据库例子如下：

单击“开始”→”所有程序“→”Microsoft Office“→”Microsoft Access 2010“，打开Microsoft Access 2010软件

在打开的Microsoft Access 2010软件中选中“空数据库”双击即可创建。或者打击“创建”命令按钮创建，其中文件名处可以选择指定具体的文件名和路径。

创建空白数据库后可以看到一个新建了一个名为“表1”的数据表，界面右侧显示了它的字段。若要添加字段，可以单击“单击以添加”旁的倒三角箭头，选择要添加的字段类型。

此时光标会定位在字段名称上，可以对字段名称进行重命名，重命名字段名称后按下回车键，将继续下一个字段的添加 *** 作。

通过以上的步骤就可以创建一个包含单个数据表的简易的空白数据库了。

创建一个类DB 该类负责连接数据库

import javasqlConnection;

import javasqlDriverManager;

import javasqlPreparedStatement;

public class DB {

public static Connection getConnection() throws Exception{

Connection con=null;

ClassforName("commysqljdbcDriver");

con=DriverManagergetConnection("jdbc:mysql://localhost/hibernate","root","root");

return con;

}

public static PreparedStatement prepare(Connection con ,String sql) throws Exception{

PreparedStatement ps=null;

ps=conprepareStatement(sql);

return ps;

}

}

在创建一个class文件专门进行增删改查

我这里以保存为例给你讲解

public class SavePicture{

private static Connection con;

private static PreparedStatement ps;

public void save() throws Exception {

con=DBgetConnection();

String sql="insert into student(name,picture) values (,)";

ps=DBprepare(con, sql);

File f=new File("xxxjpg");

FileInputStream in= new FileInputStream(f);

pssetString(1, fgetName());

pssetBlob(2, in);

psexecuteUpdate();

psclose();

conclose();

}

}

以上就是关于如何用VB编写可以动态生成数据库和表的程序全部的内容，包括:如何用VB编写可以动态生成数据库和表的程序、怎么做数据库、myeclipse中怎样编写一个完整的数据库插入程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！