dim conn as new adodb.connection dim rs as new adodb.recordset dim strsql as string conn.conectionstring="..." '与数据库的连接语句 conn.open strsql=" select * from tablename " if rs.state=adstateopen then rs.close rs.open strsql,conn,adopenkeyset,adlockreadonly set msflexgrid1.datasource=rs rs.close set rs=nothing conn.close set conn=nothing
? dim conn as new adodb.connection dim rs as new adodb.recordset dim strsql as string conn.conectionstring="..." '与数据库的连接语句 conn.open strsql=" select 姓名 from tablename " '这一句是我改的。也是你要的 if rs.state=adstateopen then rs.close rs.open strsql,conn,adopenkeyset,adlockreadonly set msflexgrid1.datasource=rs rs.close set rs=nothing conn.close set conn=nothing
dim rs as new adodb.recordset
dim strsql as string
conn.conectionstring="..." '与数据库的连接语句
conn.open
strsql=" select * from tablename "
if rs.state=adstateopen then rs.close
rs.open strsql,conn,adopenkeyset,adlockreadonly
set msflexgrid1.datasource=rs
rs.close
set rs=nothing
conn.close
set conn=nothing
dim conn as new adodb.connection
dim rs as new adodb.recordset
dim strsql as string
conn.conectionstring="..." '与数据库的连接语句
conn.open
strsql=" select 姓名 from tablename " '这一句是我改的。也是你要的
if rs.state=adstateopen then rs.close
rs.open strsql,conn,adopenkeyset,adlockreadonly
set msflexgrid1.datasource=rs
rs.close
set rs=nothing
conn.close
set conn=nothing