dim conn As New ADODB.Connection dim rst As New ADODB.Recordset conn.Open "driver={sql server};server=服务器名;sid=登录名;pwd=密码;database=数据库名" rst.Open "select * from 图书信息 where 书名 ",conn, adOpenStatic, adLockOptimistic Set DataGrid1.DataSource = rst'rst表示的是数据源 '这样就可以把查询的信息放到datagrid中去了,
dim rst As New ADODB.Recordset
conn.Open "driver={sql server};server=服务器名;sid=登录名;pwd=密码;database=数据库名"
rst.Open "select * from 图书信息 where 书名 ",conn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rst'rst表示的是数据源
'这样就可以把查询的信息放到datagrid中去了,