很简单的DAO问题，邦忙

Question

利用DAO访问数据库，自己写的：dim db as database
dim rs as recordset
set db=opendatabase("e:\产品关系表.mdb")
set rs=db.openrecordset("select * from 货物表")
set datagrid1.datasource=rs        设置MSflexgrid的数据源这条语句报错。是哪里错了

Answer 1

你到底是用datagrid,还是用MSflexgrid
set datagrid1.datasource=rs   ????????

Answer 2

set datagrid1.datasource=rs 你这个不是MSflexgrid
用这个连接吧,,
Dim dbstr As String
dbstr = App.Path
If Right(App.Path, 1) <> "\" Then dbstr = App.Path & "\"
dbstr = dbstr & "zhigeng.mdb"
Set db = New ADODB.Connection
db.Open "provider=microsoft.jet.oledb.3.51;" & "data source=" & dbstr
Set adorst = New ADODB.Recordset
set MSflexgrid.datasource=adorst       

Answer 3

是datagrid,能不能在我的基础上改。数据源不能那样写吗

Answer 4

Private Sub Form_Load()
    Dim strConn As String
    Dim pubConn As New ADODB.Connection
    Dim rsTable As New ADODB.Recordset
    Dim strSQL As String    strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=develop; password=12345;Data Source=ServerName"
    pubConn.Open strConn    rsTable.CursorLocation = adUseClient
    strSQL = "select  * from TableName"
    rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
    Set DataGrid1.DataSource = rsTableEnd Sub

Answer 5

难道难道难道难道就不能用DAO写数据源吗，不行吗，还是不好。为什么就不能用DAO写啊。郁闷。怎么都用ADO啊，

Answer 6

可以，但应引入DAO对象，如
dim db as DAO.Database
dim rst as DAO.RecordSet
.
.
.
你要用支持DAO的网格控件即可（老的）。

Answer 7

我靠，是不是这样才对：set datagrid1.datasource=db

Answer 8

那哪一个控件才支持DAO的记录集啊。有知道的吗，谢谢了。

Answer 9

用DAO！
dim db as DAO.Database
dim rst as DAO.RecordSet

Answer 10

datagrid控件的数据源必须是ado记录集recordset

Answer 11

DAO 和 Data  、DBGrid   控件配合使用；
ADO 和 Adodc 、DataGrid 控件配合使用；好像 DataGrid 不支持 DAO 和 Data 吧！

Answer 12

同时，DBGrid 和 MSflexgrid 的数据源也不支持在代码中指定，必须在设计环境中的属性页事先指定！
但是，DataGrid 和 MSHflexgrid 的数据源支持在代码中指定，也可在设计环境中的属性页事先指定！

Answer 13

MsFlexGrid控件和Data控件绑定，DataGrid控件和Adodc控件绑定。

Answer 14

msflexgrid不支持数据源，我自己是一条一条的写上去的