如何用VB将SQL查询结果生成新的表？（SQL数据库)附代码。。。。。。。谢谢了先！

Question

如何用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.RefreshEnd Sub

Answer 1

我一般都是这样写列名的xsxxb.dbo.发货日期，不知道是不是这个原因。

Answer 2

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 strConnIf 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 = Rs