1188
社区成员
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
nannet 2001-06-02
上面程序谁能帮我分析一下，万分感谢！！！！
nannet 2001-06-02
为什么通不过？？？？
Private Sub Command3_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim comd As New ADODB.Command
Dim ConnStr As String
Dim tab1 As String
Dim dol As String
Dim strsql As String
tab1 = ""
tab1 = Text1.Text
ConnStr = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=D:\opy\open\db1.mdb"
conn.Open ConnStr
comd.ActiveConnection = conn
comd.CommandType = adCmdText
strsql = strsql & Chr(13) & _
"INSERT INTO " + tab1 + " (ua,ia) VALUES (2,54)"
'cnn.Execute "Begin Transaction"
cnn.Execute strsql
'cnn.Execute "Commit Transaction"
rs.CursorLocation = adUseClient
End Sub
powerbamboo 2001-06-02
For I=0 To AA
strSQL = strSQL & Chr(13) & _
"INSERT INTO tableName (field1,field2,...) VALUES (value1,value2,...)"
Next I
cnn.Execute "Begin Transaction"
cnn.Execute strSQL
cnn.Execute "Commit Transaction"
strSQL = strSQL & Chr(13) & _
"INSERT INTO tableName (field1,field2,...) VALUES (value1,value2,...)"
Next I
cnn.Execute "Begin Transaction"
cnn.Execute strSQL
cnn.Execute "Commit Transaction"
wwwunix 2001-06-02
去掉索引、触发器、存储过程、外部关联等限制，然后再insert.做完后再重新生成索引等限制。
nannet 2001-06-02
用VB如何下达SQL语句
nannet 2001-06-02
是用INSERT INTO 语句吗？它只能插入一条呀，但我每次要插入十条以上。
nannet 2001-06-02
对不起试了很多次把cnn定义错了，问题是运行到cnn.Execute strsql时出错
错误80040e37找不到输出表
错误80040e37找不到输出表
banping 2001-06-02
程序在何处？过不去！！
看到你好像只定义了conn，
cnn有没有定义一下？？
看到你好像只定义了conn，
cnn有没有定义一下？？
liu_feng_fly 2001-06-01
用sql语句
y_shen 2001-06-01
上网查一下，现成的次料很多
nannet 2001-06-01
SQL我没用过如何使用？
nannet 2001-06-01
再说详细一点好吗？
y_shen 2001-06-01
1. 用SQL语句不要用记录集。
2. 应成批更新。
3. 连接时不要有ODBC，ODBC影响速度。
2. 应成批更新。
3. 连接时不要有ODBC，ODBC影响速度。
everyask 2001-06-01
SQL
