数据库表格中新建字段

2007-06-18 01:51:28 255 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

用Logisim搞定华科计组实验：单总线CPU设计从微程序到硬布线的保姆级通关攻略本文详细介绍了如何使用Logisim完成华中科技大学计算机组成原理实验中的单总线CPU设计，涵盖从微程序控制器到硬布线控制器的完整实现过程。通过MIPS指令译码器设计、微程序控制原理、状态机实现等关键步骤的保姆级教程，帮助学生掌握CPU设计的核心技能，并提供Educoder平台提交与调试的实用技巧。阅读详情

由于新旧数据库的不同，怎样在程序启动时判断　access　数据库中名为　QH 的表格中是否还有 “切换点属性” 这一字段呢？
如果表中不存在，就需要新建这个字段。

那怎样才能做到呢？

谢谢

...全文

硬件工程师必看：5种ESD保护电路设计实战解析（附电路图）本文为硬件工程师深度解析5种实战ESD保护电路设计，涵盖TVS二极管、专用保护芯片、片上防护及高速射频场景方案。通过具体电路图，详解工作原理、选型要点及PCB布局黄金法则，重点强调ESD防护设计中的能量泄放路径管理与低阻抗实现，助力提升产品可靠性。阅读详情

bitzl210

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

terrywolf 2007-07-08

打赏
举报

顶起来！

三楼の郎 2007-06-18

打赏
举报

靠！　晕，还没写对！

Public Function UpdateDB() As Boolean
On Error Resume Next
Dim strsql As String
Dim rs As New ADODB.Recordset
'查询表QH检查是否有字段"切换点属性",不返回记录
strsql = "select [切换点属性] from qh where 0=1"
rs.Open strsql, dbConnection, adOpenKeyset, adLockReadOnly
rs.Close
Set rs = Nothing

If Err.Number = 0 Then '检查是否发生了错误，没有错误表示QH表中有此字段
UpdateDB = True
Exit Function
Else
Err.Clear

'发生了错误表示没有此字段，通过ALTER TABLE语句追加此字段
strsql = "ALTER TABLE qh ADD [切换点属性] VARCHAR(20) NULL"
dbConnection.Execute strsql

If Err.Number <> 0 Then
UpdateDB = False
Else
UpdateDB = True
End If
End If
End Function

三楼の郎 2007-06-18

打赏
举报

Sorry 有点小错误，
strsql = "ALTER COLUMN qh ALTER COLUMN [切换点属性] NVARCHAR(20) NULL"
应该是：
strsql = "ALTER table qh ALTER COLUMN [切换点属性] NVARCHAR(20) NULL"

guyehanxinlei 2007-06-18

打赏
举报

遍历字段就可以了
For i = 0 To rs.Fields.Count - 1
If rs.Fields(i).Name = strFieldName Then
blnField = True
rs.Close
cn.Close
Exit Function
End If
Next

三楼の郎 2007-06-18

打赏
举报

Public Function UpdateDB() As Boolean
On Error Resume Next
Dim strsql As String
Dim rs As New ADODB.Recordset
'查询表QH检查是否有字段"切换点属性",不返回记录
strsql = "select [切换点属性] from qh where 0=1"
rs.Open strsql, dbConnection, adOpenKeyset, adLockReadOnly
rs.Close
Set rs = Nothing

If Err.Number = 0 Then '检查是否发生了错误，没有错误表示QH表中有此字段
UpdateDB = True
Exit Function
Else
Err.Clear

'发生了错误表示没有此字段，通过ALTER TABLE语句追加此字段
strsql = "ALTER COLUMN qh ALTER COLUMN [切换点属性] NVARCHAR(20) NULL"
dbConnection.Execute strsql

If Err.Number <> 0 Then
UpdateDB = False
Else
UpdateDB = True
End If
End If
End Function

bitzl210 2007-06-18

打赏
举报

各位帮忙看一下啊

数据库表格中新建字段

相关推荐