高手们帮帮忙,vb如何用ADO调用SQL2000中的视图?

Question

vb如何用ADO调用SQL2000中的视图?

Answer 1

strsql = "select * from vw_name "
rec.open strsql , adocnn ,adopenkeyset ,adlockoptimistic

Answer 2

strsql = "select * from vw_name "
ado.open strsql , adoconn ,adopenkeyset ,adlockoptimistic

Answer 3

use CY
go 
if exists(select name from sysobjects where name='mis')
 drop  view  mis
go
create view mis(编号,姓名,性别,年龄,底薪,部门)
 
as 
 select a.编号,a.姓名,a.性别,a.年龄,b.底薪,b.部门
 from Cinformation as a inner join Cgongzi as b
  on a .编号=b.编号
 where a .编号=b.编号
go 
********上面是建立的视图***************下面是调用此视图********Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
Set cn = New ADODB.Connection
cn.Open "Driver={SQL Server};Server=LPY;Uid=sa;Pwd=;database=CY"
sql = "select*from mis"
Set rs = New ADODB.Recordset
rs.Open sql, cn, adOpenKeyset, adLockOptimistic
Set MSHFlexGrid1.DataSource = rs
End Sub