如何向ACCESS 数据库中增加一个字段

来源：百度知道 编辑：UC知道 时间：2024/05/25 09:48:13
用 DAO 向ACCESS 里增加一个字段
Dim dbs As Database
Dim rs As Recordset
Dim mm As Field
Set dbs = OpenDatabase("路径")
Set rs = dbs.OpenRecordset("表")
不知道再怎么写了。

Public Function TransactSQL(ByVal sql AsString) As ADODB.Recordset
Dim cont As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strConnection As String
Dim strArray() As String
Set cont = New ADODB.Connection '创建连接
Set rs = New ADODB.Recordset
On Error GoTo transactsql_error
strConnection = "Provider =Microsoft.jet.oledb.4.0; data source=" & App.Path &"\cd1.mdb;"
strConnection = strConnection &"Persist Security Info=False;"
strArray = Split(sql) 'Split() 返回一个下标从零开始的一维数组
cont.Open strConnection '打开连接
If StrComp(UCase$(strArray(0)),"select", vbTextCompare) = 0 Then
rs.Open Trim$(sql), cont, adOpenKeyset,adLockOptimistic
Set TransactSQL = rs
iflag = 1
Else
cont.Execute sql
iflag = 1
End If
transactsql_exit:
Set rs = Nothing
Set cont = Nothing
Exit Function
transactsql_error:
MsgBox "查询错误：" &Err.Descr