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

来源：百度文库编辑：神马文学网时间：2024/07/04 22:35:56

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

摘　要:在表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

在表中新增一个字段的代码在VFP中如何从数据表中获取一个字段的最大值两个VFP表,均有A字段,如何将A字段相同的其他字段记录合并到一张表中在apache2的动态安装中新增加 mod_suexec.so CCF技术论坛 - 在VB中将数据库里的某一字段的值赋给一个变量，这个语句如何写？转 VB中OLE数据库字段表格的操纵方法表间关联、备注型字段和通用型字段的输入博客园 - 合金枪头.net - 在VC6中使用ADO读取Oracle中的BLOB字段带有LOB字段的表空间的移动带有LOB字段的表空间的移动 text字段的替换处理示例--全表替换 WinCE5 sources文件中TARGETLIBS与SOURCELIBS字段的作用与区别在PHP中使用随机数的三个步骤详细代码在图片中加入透明flash的代码在图片中加文字和透明FLASH的代码怎样在NCP中加入HTML代码在网页中插入背景音乐代码2 蜻蜓飞舞在繁星中【代码】在代码中调用系统数据源配置请问VB能否在程序运行过程中将变量的值赋给数据库的字段? - VB6论坛 - 编程论坛 Exchange Server 2003 SP2 中新增的移动功能怎么样读取long raw类型的字段动画代码中隐藏着一个天大的秘密（转）博客中常用的代码