dim cn as new adodb.connection dim rs as new adodb.recordset cn.connectionstring=provider=.........." cn.open rs.open "select * from tablename",cn,adOpenDynamic, adLockPessimistic set datagrid=rs
Set connwsxk = New ADODB.Connection connwsxk.CursorLocation = adUseClient connwsxk.ConnectionString = "Provider=SQLOLEDB.1;Password=j437;Persist Security Info=True;User ID=sa;Initial Catalog=wsjd;Data Source=WSJD" connwsxk.Open Set rswsxk = New ADODB.Recordset rswsxk.Open "select * from Tbl_wsxk where xklb='食' order by id", connwsxk, adOpenStatic, adLockOptimistic set datagrid1.datasource=rswsxk
sql = "select*from Cregain" Set rs = ExecuteSQL(sql) Set DataGrid2.DataSource = rs <-------------------楼主想要的
dim rs as new adodb.recordset
cn.connectionstring=provider=.........."
cn.open
rs.open "select * from tablename",cn,adOpenDynamic, adLockPessimistic
set datagrid=rs
connwsxk.CursorLocation = adUseClient
connwsxk.ConnectionString = "Provider=SQLOLEDB.1;Password=j437;Persist Security Info=True;User ID=sa;Initial Catalog=wsjd;Data Source=WSJD"
connwsxk.Open
Set rswsxk = New ADODB.Recordset
rswsxk.Open "select * from Tbl_wsxk where xklb='食' order by id", connwsxk, adOpenStatic, adLockOptimistic
set datagrid1.datasource=rswsxk
Set rs = ExecuteSQL(sql)
Set DataGrid2.DataSource = rs <-------------------楼主想要的