怎么样用VB对mdb数据库中的已有表增加列(字段)

Question

DAO可做到,但数据库有密码,弄不懂怎么样用DAO打开有密码的OpenDatabase,请指点
或
ADO是否可以做到
或
SQL语句是否可以做到

Answer 1

网上找一个解密软件，解开mdb的密码。
在MDB中增加字段比较方便.

Answer 2

cnn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strSource & ";Jet OLEDB:Database Password=" & strPassword, ......cnn.Execute "ALTER TABLE tablename " _
& "ADD COLUMN fieldname fieldtype;"

Answer 3

cnn.Execute "ALTER TABLE tablename  "ADD COLUMN fieldname fieldtype;"

Answer 4

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test.mdb;Persist Security Info=False; Jet OLEDB:Database Password:Database Password=密码"
cn.Execute "ALTER TABLE 表 ADD COLUMN 新字段 字段类型"
cn.Close
Set cn = Nothing

Answer 5

Dim R As New ADODB.Recordset
 Dim DBc As ADODB.Connection
  Set DBc = New ADODB.Connection
 DBc.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\main.mdb;Persist Security Info=False"
 DBc.Open
  R.Open "alter table (表名) add （字段） （类型）", DBc, adOpenStatic, adLockPessimistic, adCmdTextok

Answer 6

Sub OpenConnectionX() Dim wrkODBC As Workspace
Dim conPubs As Connection
Dim conPubs2 As Connection
Dim conPubs3 As Connection
Dim conLoop As Connection ' Create ODBCDirect Workspace object.
Set wrkODBC = CreateWorkspace("NewODBCWorkspace", _
"admin", "", dbUseODBC) ' Open Connection object using supplied information in 
' the connect string. If this information were 
' insufficient, you could trap for an error rather than 
' go to an ODBC Driver Manager dialog box.MsgBox "Opening Connection1..."
Set conPubs = wrkODBC.OpenConnection("Connection1", _
dbDriverNoPrompt, , _
"ODBC;DATABASE=pubs;UID=sa;PWD=;DSN=Publishers") ' Open read-only Connection object based on information 
' you enter in the ODBC Driver Manager dialog box.
MsgBox "Opening Connection2..."
Set conPubs2 = wrkODBC.OpenConnection("Connection2", _
dbDriverPrompt, True, "ODBC;DSN=Publishers;") ' Open read-only Connection object by entering only the ' missing information in the ODBC Driver Manager dialog 
' box.
MsgBox "Opening Connection3..."
Set conPubs3 = wrkODBC.OpenConnection("Connection3", _
dbDriverCompleteRequired, True, _
"ODBC;DATABASE=pubs;DSN=Publishers;") ' Enumerate the Connections collection.
For Each conLoop In wrkODBC.Connections
Debug.Print "Connection properties for " & _
conLoop.Name & ":" With conLoop
' Print property values by explicitly calling each' Property object; the Connection object does not
' support a Properties collection.
Debug.Print "    Connect = " & .Connect
' Property actually returns a Database object.
Debug.Print "    Database[.Name] = " & _
.Database.Name
Debug.Print "    Name = " & .Name
Debug.Print "    QueryTimeout = " & .QueryTimeout
Debug.Print "    RecordsAffected = " & _
.RecordsAffected
Debug.Print "    StillExecuting = " & _.StillExecuting
Debug.Print "    Transactions = " & .Transactions
Debug.Print "    Updatable = " & .Updatable
End With Next conLoop conPubs.Close
conPubs2.Close
conPubs3.Close
wrkODBC.CloseEnd Sub

Answer 7

R.Open "alter table (表名) add （字段） （类型）", DBc, adOpenStatic, adLockPessimistic, adCmdText

Answer 8

楼主回话:
ALTER TABLE 表 ADD COLUMN 新字段 字段类型
这个方法测试通过
看来我的SQL资料不够详细
那位介绍一本好的SQL资料另:找到用DAO打开MDB数据库的方法
OpenDatabase("C:\test.mdn", , ,"ms access;pwd=xxxx")
DAO可以用如下建字段
OpenDatabase.TableDefs("表名").CreateField("name",type,size)过几天结帐