可以考虑不使用控件连接数据库 定义一个连接DIM CNN AS ADODB.CONNECT 定义一个记录集RS AS ADODB.RECORDSET CNN.OPEN 接ODBC连接 SET RS=CNN.EXECUTE("SELECT * FROM 表 WHERE 条件") 这样就可以把你想要的记录集提取出来了
那你是否知道 bmp改成jpg会小很多呢?你的服务器名称都没写,怎么能连?
Private Sub Form_Load() Dim db As Connection Set db = New Connection db.CursorLocation = adUseClient db.Open "PROVIDER=MSDASQL;driver={SQL Server};server=服务器;uid=用户;pwd=密码;database=数据库名;" Set RS = New Recordset '建立一个查询 RS.Open "select * from TABLE", db, adOpenStatic, adLockOptimistic Set DataGrid1.DataSource = adoPrimaryRS '设置datagrid1 的数据源为刚才的查询 End Sub
Private Sub Form_Load() Dim db As Connection Set db = New Connection db.CursorLocation = adUseClient db.Open "PROVIDER=MSDASQL;driver={SQL Server};server=服务器;uid=用户;pwd=密码;database=数据库名;" Set RS = New Recordset '建立一个查询 RS.Open "select * from TABLE", db, adOpenStatic, adLockOptimistic Set DataGrid1.DataSource = RS '设置datagrid1 的数据源为刚才的查询(上面写错了.) End Sub
用以上连接要 工程 引用 microsoft active data objects 2.0 lib
定义一个连接DIM CNN AS ADODB.CONNECT
定义一个记录集RS AS ADODB.RECORDSET
CNN.OPEN 接ODBC连接
SET RS=CNN.EXECUTE("SELECT * FROM 表 WHERE 条件")
这样就可以把你想要的记录集提取出来了
Private Sub Form_Load()
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDASQL;driver={SQL Server};server=服务器;uid=用户;pwd=密码;database=数据库名;"
Set RS = New Recordset '建立一个查询
RS.Open "select * from TABLE", db, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = adoPrimaryRS '设置datagrid1 的数据源为刚才的查询
End Sub
Private Sub Form_Load()
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDASQL;driver={SQL Server};server=服务器;uid=用户;pwd=密码;database=数据库名;"
Set RS = New Recordset '建立一个查询
RS.Open "select * from TABLE", db, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = RS '设置datagrid1 的数据源为刚才的查询(上面写错了.)
End Sub