VB6连数据库的问题

[raman]

RDO方法是否能够连接ACCESS，如可以，有什么注意事项，因为我将连SQL SERVER的代码
移植来连ACCESS时发生错误：40002
-3010 07001: [Microsoft][ODBC Microsoft Access 驱动程序] 参数不足，期待是 1。
另外，哪种方法可移植性较好，实现更容易，ODBC OR OLE DB
ADO方法是否能够连接ACCESS

[cloud]

ADO可以连接Access,而且是一种很好的方法,建议用ADO.

[weity]

rdo 不可一连在access上 从Sql　Server 上 移植的话
最好是用ADO 因为它是最好的方法！并且 实现更容易

[dongdong]

ADO是个好方法，可以使用ADO的有关控件，如ADODC，DATAGRID，DATACOMBO等等，使用SQL语法没有问题。

[dinas]

可用另外部件连接。

[wweijie]

用ADODC可以实现。在属性窗口的connectionstring中可以选择ODBC数据源，recordsource中command type可以选择2（table),或者直接输入sql语句。如果连接数据库要求密码，可以在password中输入。

[peacock]

首先在“工程”----“属性”中选择“Microsoft DAO 3.X Object Library”,然后代码如下：
Dim DB As Database
Dim RS As Recordset
Set DB = OpenDatabase(App.Path + "数据库名", False, False, "")
Set RS = DB.OpenRecordset("表名", dbOpenDynaset)
'添加：
RS.AddNew
RS.Fields("字段1")=
RS.Fields("字段2")=
......
RS.Fields("字段n")=
RS.UpData
RS.Fields.Refresh
'修改：
RS.Edit
RS.Fields("字段1")=
RS.Fields("字段2")=
......
RS.Fields("字段n")=
RS.UpData
RS.Fields.Refresh
'删除：
'将数据指针移动到响应的记录上
RS.Delete
RS.UpData
RS.Fields.Refresh


'最后要关闭数据库
RS.Close
DB.Close