Re: [VB6 ] 檢查access DB中某個table是否存在

看板Visual_Basic作者fumizuki (矇面加菲獅)時間19年前 (2006/07/13 21:48)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串2/2 (看更多)

※ 引述《slasher (you got me)》之銘言： : 若不存在則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還是空的... : 請問這樣是什麼問題? Private Sub Command1_Click() On Error Goto errProc Settemper = eCn.Execute("TName") . . . Exit Sub errProc: MsgBox Err.Description, vbInformation '把錯誤秀出來，才知道錯在哪... End Sub -- ▃▅▇▆▄ ▆▂▃ ` 逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃ ▇▃▂" . █████████▃i ▁▄▇ 更多悽悽慘慘的遭遇…………██▆▃ █▅▆▃ˍ▄* ◢ ▂█▄▇▅▂▌. 我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 218.184.116.195