VB数据库高手帮个忙!!! 我在线等待您的热心帮助！

Question

VB数据库高手帮个忙：
    我在用代码创建新数据库时用到 Createdatabase 等方法，可是出现了数据类型未定义，我在查看了MSDN后到引用里找 Dta Access Object ，可是怎么找不到呢？
    我在线等待您的热心帮助！

Answer 1

'引用MicroSoft DAO 3.51Sub CreateDatabaseX()   Dim wrkDefault As Workspace
   Dim dbsNew As DATABASE
   Dim prpLoop As Property   ' Get default Workspace.
   Set wrkDefault = DBEngine.Workspaces(0)   ' Make sure there isn't already a file with the name of 
   ' the new database.
   If Dir("NewDB.mdb") <> "" Then Kill "NewDB.mdb"   ' Create a new encrypted database with the specified 
   ' collating order.
   Set dbsNew = wrkDefault.CreateDatabase("NewDB.mdb", _
      dbLangGeneral, dbEncrypt)   With dbsNew
      Debug.Print "Properties of " & .Name
      ' Enumerate the Properties collection of the new 
      ' Database object.
      For Each prpLoop In .Properties
         If prpLoop <> "" Then Debug.Print "  " & _
            prpLoop.Name & " = " & prpLoop
      Next prpLoop
   End With   dbsNew.CloseEnd Sub
---这种方法如今可能没人再用了...

Answer 2

Microsoft Dao X.X Object Library

Answer 3

用DAO应该是:microsoft dao 3.5....
或者,用ADO的是:microsoft activex data objects ....

Answer 4

请问上面的大哥这种方法现在不用了，能推荐一下用什么好吗？我是新手。  
   现在我要在需要时将串口接收到的大量数据存入数据库中，有人建议我建一个动态的数据库存放数据，然后生成报表和图象。
   另外，对动态生成的数据库的操作是不是可以用ADO来连接访问？
    我在线等待您的热心帮助！

Answer 5

那就是如果我先建好一个Access 数据库，然后在需要时直接往这个数据库的表中填写就可以了吗？
    我能否请教一下如何通过程序往Access 数据库中写入相关数据呢？

Answer 6

给你看一个例子,记得引用microsoft dao 3.5...对象
Sub test()
    Dim Db As DAO.Database  '定义数据库对象
    Set Db = OpenDatabase("f:\my documents\db1.mdb") '打开数据库
    Db.Execute "create table a(a text(10))"  '创建表
    Db.Execute "insert into a(a) values('10')" '往创建的表里写入数据
    Db.Execute "drop table a"  '删除表
End Sub

Answer 7

SQL SERVER 的create database
CREATE DATABASE Sales
ON 
( NAME = Sales_dat,
   FILENAME = 'c:\program files\microsoft sql server\mssql\data\saledat.mdf',
   SIZE = 10,
   MAXSIZE = 50,
   FILEGROWTH = 5 )
LOG ON
( NAME = 'Sales_log',
   FILENAME = 'c:\program files\microsoft sql server\mssql\data\salelog.ldf',
   SIZE = 5MB,
   MAXSIZE = 25MB,
   FILEGROWTH = 5MB )CREATE DATABASE Archive 
ON
PRIMARY ( NAME = Arch1,
      FILENAME = 'c:\program files\microsoft sql server\mssql\data\archdat1.mdf',
      SIZE = 100MB,
      MAXSIZE = 200,
      FILEGROWTH = 20),
( NAME = Arch2,
   FILENAME = 'c:\program files\microsoft sql server\mssql\data\archdat2.ndf',
   SIZE = 100MB,
   MAXSIZE = 200,
   FILEGROWTH = 20),
( NAME = Arch3,
   FILENAME = 'c:\program files\microsoft sql server\mssql\data\archdat3.ndf',
   SIZE = 100MB,
   MAXSIZE = 200,
   FILEGROWTH = 20)
LOG ON 
( NAME = Archlog1,
   FILENAME = 'c:\program files\microsoft sql server\mssql\data\archlog1.ldf',
   SIZE = 100MB,
   MAXSIZE = 200,
   FILEGROWTH = 20),
( NAME = Archlog2,
   FILENAME = 'c:\program files\microsoft sql server\mssql\data\archlog2.ldf',
   SIZE = 100MB,
   MAXSIZE = 200,
   FILEGROWTH = 20)

Answer 8

C. 创建简单的数据库
本例创建名为 Products 的数据库，并指定单个文件。指定的文件成为主文件，并会自动创建一个 1 MB 的事务日志文件。因为主文件的 SIZE 参数中没有指定 MB 或 KB，所以主文件将以兆字节为单位进行分配。因为没有为事务日志文件指定 <filespec>，所以事务日志文件没有 MAXSIZE，可以增长到填满所有可用的磁盘空间为止。USE master
GO
CREATE DATABASE Products
ON 
( NAME = prods_dat,
   FILENAME = 'c:\program files\microsoft sql server\mssql\data\prods.mdf',
   SIZE = 4,
   MAXSIZE = 10,
   FILEGROWTH = 1 )
GO