这样的,如 表 A id int name char我是想在sql7中得到表A的column名字---(ID,Name)。 然后判断是否在其中加入name字段,表中没有这个字段,则加入name字段。 用sp_help tablename后得到的信息如何用呢?或是有其它办法? 谢谢大家参与,问题一解决我给分!
你可以试试下面的办法 Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordsetcn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=ACCT_Report;Data Source=wcx"‘连接字符 cn.Open rs.ActiveConnection = cn rs.Source = "select * from report_content" rs.OpenFor i = 0 To rs.Fields.Count - 1 ’在此加入判断 if rs.fields.item(i).name =条件 then exit for end ifNext i if i=rs.fields.count-1 then 添加字段至该表 end if
我给分你
表 A
id int
name char我是想在sql7中得到表A的column名字---(ID,Name)。
然后判断是否在其中加入name字段,表中没有这个字段,则加入name字段。
用sp_help tablename后得到的信息如何用呢?或是有其它办法?
谢谢大家参与,问题一解决我给分!
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordsetcn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=ACCT_Report;Data Source=wcx"‘连接字符
cn.Open
rs.ActiveConnection = cn
rs.Source = "select * from report_content"
rs.OpenFor i = 0 To rs.Fields.Count - 1
’在此加入判断
if rs.fields.item(i).name =条件 then
exit for
end ifNext i
if i=rs.fields.count-1 then
添加字段至该表
end if
用Properties集合可以知道数据库的所有信息。
如果是判断某个表、某个表的字段是否存在,那更简单了,
随便调用一下,返回有错就是没有这玩意儿了。
给分!