能的。Private sub form_load()
dim cn as new adodb.conection
dim rs as new adbodb.recordset
dim sqlstr as string,cnstr as string
cnstr= "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
cn.Open strCnn
rs.CursorLocation=adUseClient
rs.CursorType=AdOpenKeyset
sqlstr="select * from student"
rs.open sqlstr,cn
set datagrid1.datasource=rs
datagrid1.refresh
End sub
dim cn as new adodb.conection
dim rs as new adbodb.recordset
dim sqlstr as string,cnstr as string
cnstr= "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
cn.Open strCnn
rs.CursorLocation=adUseClient
rs.CursorType=AdOpenKeyset
sqlstr="select * from student"
rs.open sqlstr,cn
set datagrid1.datasource=rs
datagrid1.refresh
End sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货