在表中新增一个字段的代码

时　间:2008-05-24 15:57:00
作　者:十段   ID：563  城市：上海
摘　要:在表4中新增"区域"字段
正　文:

Private Sub Command0_Click()
On Error GoTo Err_Command0_Click

Dim zdStr As String
Dim StrSel As String
Dim rs As ADODB.Recordset
StrSel = "Select * FROM 表4"
Set rs = New ADODB.Recordset
rs.Open StrSel, CurrentProject.Connection, adOpenStatic, adLockBatchOptimistic
For i = 0 To rs.Fields.Count - 1
    If "区域" <> rs.Fields(i).Name Then
       rs.Close
         zdStr = "Alter TABLE 表4 ADD COLUMN 区域 text(20)"
         DoCmd.RunSQL zdStr
    rs.Open StrSel, CurrentProject.Connection, adOpenStatic, adLockBatchOptimistic
    End If
Next
Exit_Command0_Click:
    Exit Sub
Err_Command0_Click:
    MsgBox Err.Description
    Resume Exit_Command0_Click
   
End Sub


Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店