作者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