在VB中添加不了数据库

你用的是VB几啊?版本落后不能检测ACCESS,

另外你用的ACCESS版本比2003高级的话,VB6好象也不能检测到....

既然这样,你就不用DATA/ADODC控件,直接编程把数据库连起来,跳开控件这一部分

一、 创建数据库：

在DAO中用CreatDataBase方法可以根据用户需求动态的创建数据库。这一点在程序中是非常有用的。用户可以根据要求实时建立数据库。建立过程如下：

Private Sub Com_creat_Click()

On Error GoTo Err100

CreatDataBase "数据库名称.mdb" ，dbLangGeneral

Msgbox "数据库建立完毕"

Exit Sub

Err100:

MsgBox "不能建立数据库! " &vbCrLf &vbCrLf &Err.Description, vbInformation

End Sub

这样，数据库便在当前默认的路径下建立了。

二、 创建表与字段：

建立数据库后，则需要在该数据库中建立表，这要用到TableDef 对象。先定义一个TableDef类型的对象，然后用TableDef集合中Append方法将之追加到数据库当中去。并且同时定义一个Field对象，用CreatFiele的方法创建一个Field对象，向表中添加字段。例如:

Private Sub Com_table_Click()

On Error GoTo Err100

Dim Defdb As DataBase

Dim NewTable As TableDef

Dim NewField As Field

Set Defdb = Workspaces(0).OpenDatabase (App.path &"\数据库名称.mdb" ,0, False)

Set NewTable = DefDataBase.CreateTableDef("表名")

Set NewField = DefTable.CreateField( "字段名" , dbText ,6) ′创建一个字符型的字段，长度为6个字符

DefTableFields.Append NewField ′字段追加

DefDatabase.TableDefs.Append NewTable ′表追加

Msgbox " 表建立完毕 "

Exit Sub

Err100:

MsgBox "对不起，不能建立表。请先再建表前建立数据库？", vbCritical

End Sub

---