Set tmpar = ac.Execute("exec depfind,1) 不知道你是这句写错了还是就是有问题??
dim tmpar as new adodb.recordset dim cnndb as new adodb.connection dim ssql as stringcnndb.connection="driver={sql server};uid=;pwd=;database=lhjxc1" cnndb.openssql="select fieldname from tablename" tmpar.open ssql,cnndb,,,adcmdtextset datagrid1.datasource=tmpar datagrid1.refresh
不知道你是这句写错了还是就是有问题??
dim cnndb as new adodb.connection
dim ssql as stringcnndb.connection="driver={sql server};uid=;pwd=;database=lhjxc1"
cnndb.openssql="select fieldname from tablename"
tmpar.open ssql,cnndb,,,adcmdtextset datagrid1.datasource=tmpar
datagrid1.refresh