select * into ybtp200412 from (select rs.no,((31*8-yb200412.j101xs-yb200412.j114xs-yb200412.j102xs-yb200412.j108xs-yb200412.j110xs-yb200412.j111xs-yb200412.j112xs-yb200412.j115xs-yb200412.j116xs-yb200412.j117xs-yb200412.j118xs-yb200412.kgxs-yb200412.zcdztsj/60-rs200412.qqts*8)/(31*8)*100) as cql from rs,rs200412,yb200412 WHERE (RS.NO=RS200412.NO AND RS200412.NO=YB200412.NO AND RS.NO=YB200412.NO))
############################################
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rssql As String
Const connstring = "Provider=SQLOLEDB.1;Password=1;Persist Security Info=True;User ID=sa;Initial Catalog=stxt;Data Source=127.0.0.1"
Set db = New ADODB.Connection
db.ConnectionString = connstring
db.Open Set rs = New ADODB.Recordset
rs.ActiveConnection = db
rs.CursorLocation = adUseClient
rssql = "select * into ybtp200412 from (select rs.no,((31*8-yb200412.j101xs-yb200412.j114xs-yb200412.j102xs-yb200412.j108xs-yb200412.j110xs-yb200412.j111xs-yb200412.j112xs-yb200412.j115xs-yb200412.j116xs-yb200412.j117xs-yb200412.j118xs-yb200412.kgxs-yb200412.zcdztsj/60-rs200412.qqts*8)/(31*8)*100) as cql from rs,rs200412,yb200412 WHERE (RS.NO=RS200412.NO AND RS200412.NO=YB200412.NO AND RS.NO=YB200412.NO))"
rs.Open rssql
######################
select * into ybtp200412 from (select rs.no,((31*8-yb200412.j101xs-yb200412.j114xs-yb200412.j102xs-yb200412.j108xs-yb200412.j110xs-yb200412.j111xs-yb200412.j112xs-yb200412.j115xs-yb200412.j116xs-yb200412.j117xs-yb200412.j118xs-yb200412.kgxs-yb200412.zcdztsj/60-rs200412.qqts*8)/(31*8)*100) as cql from rs,rs200412,yb200412 WHERE (RS.NO=RS200412.NO AND RS200412.NO=YB200412.NO AND RS.NO=YB200412.NO)) as tmp
cql
---------------------------
select * into ybtp200501 from ((select rs.no,((31*8-yb200501.j101xs -yb200501.j114xs-yb200501.j102xs-yb200501.j108xs-yb200501.j110xs-yb200501.j111xs-yb200501.j112xs-yb200501.j115xs-yb200501.j116xs-yb200501.j117xs-yb200501.j118xs-yb200501.kgxs-yb200501.zcdztsj/60-rs200501.qqts*8)/(31*8)*100) as cql from rs,rs200501,yb200501 WHERE (RS.NO=RS200501.NO AND RS200501.NO=YB200501.NO AND RS.NO=YB200501.NO)) as tmp)
---------------------------
确定
---------------------------
这样还是 出错