VB中用ADO对象动态创建数据库和表.docVIP

VB中用ADO对象动态创建数据库和表 我们现在的目的就是让用户利用ADO对象在程序运行过程中创建数据库和表，就好象他利用Access来建立数据库和表一样。为此，我们应该引用对象库Microsoft ActiveX Data Objects 2.5 Library和Microsoft ADO Ext 2.1. For DDL Security 　　我们不妨用一个实例来说明具体的操作过程和方法。我们的实例要达到目的是：在程序运行过程中建立一个数据库，数据库的名称由用户输入。然后在数据库中建立一个名为MyTable的数据表，数据表中有三个字段，它们分别是：编号(整数型)、 姓名(字符型，宽度为8)、住址 (字符型，宽度为50)，接着在数据表中添加一条记录，最后在DataGrid控件中把记录的内容显示出来，并且让用户在DataGrid控件中任意修改、添加记录。 　　首先在 \o vb vb中新建一个窗体，然后在工程菜单中引用对象库Microsoft ActiveX Data Objects 2.5 Library和Microsoft ADO Ext 2.1. For DDL Security。接着定义三个窗体级的对象变量和一个窗体级的字符串变量，它们的具体定义是： 　　Dim cat As New ADOX.Catalog 不用cat用另外一个名字也可以 　　Dim conn As New ADODB.Connection 　　Dim rs As New ADODB.Recordset 　　Dim pstr As String 定义该变量是为了后面的书写方便 　　为了更灵活地创建数据库，我们可以在窗体中加入一个通用对话框、一个DataGrid控件，三个命令按钮，它们的标题分别是：创建数据库和表、查看、更新。通用对话框的作用是给用户输入数据库文件名和决定数据库的存放位置。 创建数据库和表命令按钮对应的代码是： 　　Private Sub Command1_Click() 　　Dim fm As String fm变量用来获取用户输入的文件名 　　CommonDialog1.Filter = MDB文件(*.mdb)|*.mdb|AllFiles(*.*)|*.*| 　　CommonDialog1.FilterIndex = 1 　　CommonDialog1.InitDir = D:\Jthpaper 　　CommonDialog1.Flags = 6 　　CommonDialog1.Action = 2 　　If CommonDialog1.FileName = Then 　　MsgBox 你必须输入一个文件名，请重新保存一次！ 　　Exit Sub 　　Else 　　fm = CommonDialog1.FileName 　　End If 　　pstr = Provider=Microsoft.Jet.OLEDB.4.0; 不能把这里的4.0改为3.51 　　pstr = pstr Data Source= fm 　　cat.Create pstr 创建数据库 　　Dim tbl As New Table 　　cat.ActiveConnection = pstr 　　tbl.Name = MyTable 表的名称 　　tbl.Columns.Append 编号, adInteger 表的第一个字段 　　tbl.Columns.Append 姓名, adVarWChar, 8 表的第二个字段 　　tbl.Columns.Append 住址, adVarWChar, 50 表的第三个字段 　　cat.Tables.Append tbl 建立数据表 　　conn.Open pstr 　　rs.CursorLocation = adUseClient 　　rs.Open MyTable, conn, adOpenKeyset, adLockPessimistic 　　rs.AddNew 往表中添加新记录 　　rs.Fields(0).Value = 9801 　　rs.Fields(1).Value = 孙悟空 　　rs.Fields(2).Value = 广州市花果山 　　rs.Update 　　End Sub 　　上面程序中有一个需要说明的地方，这就是语句：pstr = Provider=Microsoft.Jet.OLEDB.4.0;，这个语句表示Microsoft Jet OLEDB驱动程序的版本是4.0，这是目前最新的版本，利用它你可以用VB中的ADO对象访问Access2000及其以下版本所建立的数据库。你不能把这里的4.0改为3.51，否则程序不能正常运行；在VB6中，3.51版本的Microsoft Jet OLE