cn.Execute strSQL
要保存的数据都没有问题。目前看来与时间有关系。单步调试时可保存的条数少,执行时保存的多,但都在6000条以下
要保存的数据都没有问题。目前看来与时间有关系。单步调试时可保存的条数少,执行时保存的多,但都在6000条以下
解决方案 »
- 求助 :16进制日期转化的问题
- 请问:RtlDowncaseUnicodeString 是什么意思?
- 如何知道用户按下了另存为对话框的“保存”按钮呢还是“取消”按钮呢?
- Dll : VC开发的Dll在VB中调用的参数问题(char*)!!!
- 怎样用SendMessage向窗口或控件发送回车的消息,格式是怎样?
- 请问VB怎样将控件放到Form里面?
- 各位大虾,Vb里面的Inet控件,能实现向服务器上传文件吗?Inet.Execute方法,怎样用的,具体一点了。。。。
- 在vb中这样的表达式是怎么回事?"rst!name"
- 如何注册系统热键。
- 喜欢vb的大虾们,来这里吧! 谢谢 OLD_VB_FAN(蓝星)
- 怎么写DataGrid?
- 如何知道一条SQL语句的执行结果是不是一个记录集?
mstrConnectString = "连接字符串"
Rs.MoveFirst
Dim cn As ADODB.Connection, strSQL As String, i As Long
Set cn = CreateObject("ADODB.Connection")
cn.Open mstrConnectString
While Not Rs.EOF
strSQL = "INSERT INTO bjds.InvoiceDetail (ID,INVOICEID,DATEUISSUED,AMOUNTCHARGED,RECEIVERNO,INVOICESTATE,FORGERYCODE) " _
' & "VALUES (0,'" & Rs!InvoiceID & "',To_Date('" & Format(Rs!DATEUISSUED, "YYYYMMDD") & "','YYYYMMDD')," & Rs!AMOUNTCHARGED & ",'" & Rs!ReceiverNo _
' & "'," & Rs!INVOICESTATE & ",'" & Rs!FORGERYCODE & "')" cn.Execute strSQL
Rs.MoveNext
Wend
Debug.Print Now
cn.Close
'原来使用的,速度有些慢!!
' With Rs
' .ActiveConnection = mstrConnectString '& "YY"
' .UpdateBatch
' End With
If mblnInMTS Then mobjCTX.SetComplete
Exit Sub
-----------------------------------------------------------------
修改如下:
on error goto errhandle:
with cn
begintrans
execute (strsql)
committrans
end with
exit sub
errhandle:
cn.rollbacktrans
end sub