在VB中动态创建数据库

在VB中动态创建数据库
新建工程.添加控件 对应写上代码

以下为引用的内容：
Private Sub Command2_Click()
    Dim myDB As DAO.Database
    'Set myDB = DAO.OpenDatabase("d:\mydb3.mdb")
    Set myDB = DAO.OpenDatabase(App.Path + "/mydb.mdb")
    Dim d As String
    d = "delete * from NewTable1"
     myDB.Execute d
     MsgBox "成功删除全部记录"
End Sub

Private Sub Command3_Click()
    Dim myDB As DAO.Database
    'Set myDB = DAO.OpenDatabase("d:\mydb3.mdb")
    Set myDB = DAO.OpenDatabase(App.Path + "/mydb.mdb")
    Dim e As String
    e = "drop TABLE NewTable1"
    myDB.Execute e
End Sub

Private Sub Form_Load()
    Dim myDB As DAO.Database
    'Set myDB = DAO.Workspaces(0).CreateDatabase("d:\mydb3.mdb", dbLangGeneral)
     Set myDB = DAO.Workspaces(0).CreateDatabase(App.Path + "/mydb.mdb", dbLangGeneral)
    Dim str_SQL As String
    str_SQL = "Create Table NewTable1(Field1 Text(10),Field2 Short)"
    myDB.Execute str_SQL
    Dim a As String
    a = "Insert INTO NewTable1 VALUES ('litao','21')"
    myDB.Execute a
  
    str_SQL = "Create Table NewTable2(Field1 Text(10),Field2 Short)"
    myDB.Execute str_SQL
    myDB.Close
    MsgBox "成功创建mydb3.mdb数据库外加一条记录litao 21"
    End Sub 

Private Sub Command1_Click()
    Dim myDB As DAO.Database
    'Set myDB = DAO.OpenDatabase("d:\mydb3.mdb")
    Set myDB = DAO.OpenDatabase(App.Path + "/mydb.mdb")
    Dim c As String
    c = "Insert INTO NewTable1 VALUES ('liqiao','20')"
    myDB.Execute c
MsgBox "成功插入一条记录liqiao 20"
End Sub
时间： 2024-10-30 05:14:48

在VB中动态创建数据库的相关文章

在存储过程中动态创建表

在尝试做在线考试系统的过程中,为了管理每个学生的考试信息,就考虑为每个学生创建以学号命名的临时数据表. 在存储过程中动态创建表如果不使用参数的话很好创建.方法如下: ALTER procedure [dbo].[ZXKS_GETSCORE] AS begin transaction --创建临时表,直接命名 create table temp_tablename ( id int primary key, da varchar(300), fs int ) declare @count int

如何在oracle中手工创建数据库

oracle中手工创建数据库的步骤: 1. 创建必要的相关目录 2. 创建初始化参数文件 3. 设置环境变量Oracle_sid 4. 创建实例 5. 创建口令文件 6. 启动数据库到nomount(实例)状态 7. 执行建库脚本 8. 执行catalog脚本创建数据字典 9. 执行catproc创建package包 10.      执行pupbld 11.      由初始化参数文件创建spfile文件 12.      执行scott脚本创建scott模式 13.      用命令测试数据

imageview-ANDROID Fragment中动态创建ImageView

问题描述 ANDROID Fragment中动态创建ImageView 在一个ACTIVITY (CXmain) 中包含N个Fragment.现在在其中一个Fragment中需要动态创建imageview 但是运行时却出错. 目的是在在Fragment中创建一个可以滑动显示图片的功能 利用ScrollView来实现.下面是代码: public class CtFragment extends Fragment implements OnClickListener { ..............

如何在MFC对话框程序中动态创建一个单文档。

问题描述 如何在MFC对话框程序中动态创建一个单文档. 就是在MFC对话框程序里单击一个按钮可以出现一个单文档界面,是MFC对话框的框架 解决方案 再做一个单文档的exe,点击按钮,启动它

c/c++ 内存 结构体-在一个结构体中动态创建另一个结构体数组，那么怎样释放内存！求助，谢谢了！

问题描述 在一个结构体中动态创建另一个结构体数组,那么怎样释放内存!求助,谢谢了! struct Link_Info { int Destination_VertexID; int Vertex_To_Vertex_LinkID; int Cost_of_Link; }; struct Vertex_Info { int OutDegree; int Vertex_Num; Link_Info* out = new Link_Info[8]; }; Vertex_Info* Vertex_Cha

如何在vb中引用access数据库中的窗体

问题描述 如何在vb中引用access数据库中的窗体 如何在vb中引用access数据库中的窗体 我在vb.net中不知道怎么链接access,我打开那个数据库连接也只能连到表格,连不到窗体,我想连接窗体.大概就是实现在vb.net中按下一个bottom可以弹出access中我已经做好的一个窗体.请告诉我具体的步骤及代码.是期末作业,请各位大神帮忙啊!!!

JS中动态创建元素的三种方法总结(推荐)_javascript技巧

1.动态创建元素一 document.write() 例如向页面中输出一个 li 标签 <pre class="html" name="code"><span style="font-size:12px;"><script> document.write("<li>123</li>"); </script></span> body标签中就会插入

IE8中动态创建script标签onload无效的解决方法_javascript技巧

本文实例讲述了IE8中动态创建script标签onload无效的解决方法.分享给大家供大家参考.具体分析如下: 今天做项目,发现一个奇怪的问题,动态创建的script标签在IE8下无法触发onload事件. 代码如下: 复制代码 代码如下: var loadJs = function(src, fun){     var script = null;     script = document.createElement("script");     script.type = &qu

sqlserver2008中无法创建数据库

问题描述 sqlserver2008中无法创建数据库 sqlserver2008 在自定义的服务器中无法创建数据库 masert拒绝创建数据库 应该是权限问题 请高手 大虾们不吝赐教