[VB6 ] 檢查access DB中某個table是否存在
若不存在則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
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 1 之 2 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章