VB sql跨服务器查询问题
以下是一段SQL跨服务器查询语句
Select a.StationID,a.ObservTime,a.TT,a.R1H,b.* From OPENDATASOURCE('SQLOLEDB',
'Data Source = 10.203.6.23;
User Id=sa;Password=123').AWSGz.dbo.tabhourdata a,
OPENDATASOURCE('SQLOLEDB',
'Data Source = GG;
User Id=sa;Password=123').Auto_data.dbo.station_info b where a.observTime = '2010-03-16 16:00:00'
and a.stationid=b.stationcode and b.station_style=2
该语句在SQL查询分析器中通过
问题如下：
在VB中，我怎样执行这个查询
[解决办法]
定义个connection ,然后用它执行
dim Cn As New ADODB.Connection
Cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" _
& "Persist Security Info=False;User ID=sa;" _
& "Initial Catalog= wy_sysl;Data Source= localhost;pwd=sa;"
If Cn.State <> ADODB.ObjectStateEnum.adStateClosed Then Cn.Close
Cn.Open
cn.execute("你的SQL语句")
