您的位置：程序门 -> vb -> 数据库（包含打印，安装，报表)

载入数据库时。类型不匹配。代码在下面，请高手指教

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

载入数据库时。类型不匹配。代码在下面，请高手指教

发表于：2007-04-06 10:50:48 楼主

载入数据库时。类型不匹配。
代码如下：
dim fld as field
dim tbl as tabledef
dim sfield as string
dim stable as string
const vbspace as string = " "

cbofield.clear
for each tbl in db.tabledefs
stable = tbl.name
if left$（stable, 4) <> "msys " then
for each fld in tbl.fields //这句显示类型不匹配
if fld.type = dblongbinary then
sfield = fld.name
if instr（sfield, vbspace) then
sfield = "[ " & sfield & "] "
end if
if instr（stable, vbspace) then
stable = "[ " & stable & "] "
end if
cbofield.additem stable & ". " & sfield
end if
next
end if
next

end sub

下一篇：vb6 调用sql server存储过程后如何返回其结果集
上一篇：ado中的多重循环进入了死循环

其他资讯