如何用VB将SQL查询结果生成新的表？（SQL数据库)附代码。。。。。。。谢谢了先！
如何用VB将SQL查询结果生成新的表？（SQL数据库)附代码。。。。。。。谢谢了先！
是个计算应收帐款的查询，我想把的到的结果生成一张新的表 yszk
或者 把条件生成 视图也可以～ 谢谢了～
Private Sub Command1_Click()
Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=YKMIS"
Adodc1.RecordSource = "SELECT dbo.hkxxb.地区名称, dbo.hkxxb.销售员, dbo.hkxxb.医院名称, SUM(dbo.xsxxb.总金额 - dbo.hkxxb.回款金额) As 汇总金额 into yszk FROM dbo.xsxxb INNER JOIN dbo.hkxxb ON dbo.xsxxb.医院名称 = dbo.hkxxb.医院名称 WHERE (dbo.xsxxb.发货日期 between '" & DTPicker1.Value & " 'and '" & DTPicker2.Value & " ') GROUP BY dbo.hkxxb.医院名称, dbo.hkxxb.地区名称, dbo.hkxxb.销售员"
Adodc1.Refresh
End Sub
问题点数：20、回复次数：3Top
1 楼malw520（黑白灰）回复于 2005-07-04 09:33:16 得分 0
我代码如上，可以生成表，但是要报错！对象关闭不可用！
老大？？怎么改，如果要生成视图，又是改怎么样写呢？？？
Top
2 楼carpenter01（木匠）回复于 2005-07-04 09:45:14 得分 5
我一般都是这样写列名的xsxxb.dbo.发货日期，不知道是不是这个原因。Top
3 楼wyy1001（fresh flowers）回复于 2005-07-04 09:46:55 得分 15
Dim strConn As String
If Conn.State <> adStateClosed Then Conn.Close
strConn = "Provider=SQLOLEDB.1;Password=" & DB_Password & ";Persist Security Info=True;User ID=" & DB_User & ";Initial Catalog=dbdata;Data Source= " & DB_Address
Conn.CursorLocation = adUseClient
Conn.Open strConn
If Rs.State <> adStateClosed Then Rs.Close
Rs.Open "SELECT dbo.hkxxb.地区名称, dbo.hkxxb.销售员, dbo.hkxxb.医院名称, SUM(dbo.xsxxb.总金额 - dbo.hkxxb.回款金额) As 汇总金额 into yszk FROM dbo.xsxxb INNER JOIN dbo.hkxxb ON dbo.xsxxb.医院名称 = dbo.hkxxb.医院名称 WHERE (dbo.xsxxb.发货日期 between '" & DTPicker1.Value & " 'and '" & DTPicker2.Value & " ') GROUP BY dbo.hkxxb.医院名称, dbo.hkxxb.地区名称, dbo.hkxxb.销售员"
, Conn, adOpenKeyset, adLockOptimistic
End If
' 报告出 一共多少笔数据,测试是否存在数据
' 绑定进DataGrid
Set DataGrid1.DataSource = RsTop
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
