1,217
社区成员




dim conn as new adodb.connection
dim rs as new adodb.recordset
With conn
If .State = adStateOpen Then .Close
.ConnectionString = "driver=SQL Server;server=SQL实例名;uid=SA;pwd=SA的密码;database=test"
.CommandTimeout = 0
.Open
End With
if rs.state<>adstateclosed then rs.close
rs.open "select no from student",conn,adopenkeyset,adlockreadonly
set mshflexgrid1.datasource=rs
rs.close
conn.close