作者slasher (you got me)
看板Visual_Basic
标题[VB6 ] 检查access DB中某个table是否存在
时间Thu Jul 13 17:00:15 2006
若不存在则create
On Error Resume Next
Set temper = eCn.Execute("TName")
If Err.Number <> 0 Then
eCn.Execute "create table " & TName & ...............
Set temper = New Recordset
temper.Open "select * from BankTab", eCn, adOpenStatic, adLockOptimistic
temper.Open "insert into " & TName &
"(BankCode,BankName,Branch) select BankCode,BankName,Branch from BankTab", eCn
temper.Open "update " & TName & " set
[01]=0,[02]=0,[03]=0,[04]=0,[05]=0,[06]=0,[07]=0,[08]=0,[09]=0,[10]=0," & _
"[11]=0,[12]=0,[13]=0,[14]=0,[15]=0,[16]=0,[17]=0,[18]=0,[19]=0,[20]=0,[21]=0,[22]=0,[23]=0,[24]=0,"
& _
"[25]=0,[26]=0,[27]=0,[28]=0,[29]=0,[30]=0,[31]=0,Total=0", eCn
temper.Close
End If
table是开起来了
可是没办法insert的指令好像没有完成
整个table还是空的...
请问这样是什麽问题?
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 203.66.84.2