作者fumizuki (矇面加菲獅)
看板Visual_Basic
標題Re: [VB6 ] 檢查access DB中某個table是否存在
時間Thu Jul 13 21:50:52 2006
※ 引述《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