1、我建了个SQL临时表,代码如下:
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cnstring As String
Dim rssql As String
cnstring = "Server=localhost; Provider=SQLOLEDB.1;Integrated Security=SSPI;Persis...."
rssql = "select * into ##" & st & " FROM 销售单"
cn.Open cnstring
rs.Open rssql, cn, adOpenDynamic, adLockBatchOptimistic
Set DataGrid1.DataSource = rs
2、往临时表里添加记录并重新显示,代码如下:
Adodc1.ConnectionString = "Server=localhost; Provid...."
Adodc1.RecordSource = "select * from ##" & st & ""
Adodc1.Refresh
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("款号") = "A51137"
Adodc1.Recordset.Fields("颜色") = "黑色"
Adodc1.Recordset.Fields("尺码") = "S"
Adodc1.Recordset.Fields("数量") = 12
Adodc1.Recordset.Fields("金额") = 1200
Adodc1.Recordset.Update
Adodc2.ConnectionString = "Server=localhost; Provid...."
Adodc2.RecordSource = "select * from ##" & st & ""
Adodc2.Refresh
Set DataGrid1.DataSource = Adodc2
3、问题:第一次添加成功,显示正常,再按第二次添加时,提示“对象名' ##" & st & ”'”无效。
这是为什么?求大侠指点