一个很菜的数据库连接问题。关于datagrid和ADO

Question

VB6用ADO怎么才能实现把一个表中的数据显示到datagrid里面用纯代码实现，只用一个datagrid控件

Answer 1

Option Explicit'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)
Dim cn As New ADODB.Connection
Dim rs As New ADODB.RecordsetPrivate Sub Command1_Click()
    rs.Open "SELECT * FROM TABLENAME WHERE NAME = '" & txtName.Text & "'", cn, adOpenDynamic, adLockOptimistic
    set DataGrid1.DataSource = rs
End SubPrivate Sub Form_Load()
    cn.ConnectionString = "DBQ=" & App.Path & "\TelePhone.mdb;DefaultDir=" & _
        App.Path & ";Driver={Microsoft Access Driver (*.mdb)};" & _
        "DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;" & _
        "MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;" & _
    "Threads=3;UID=ADMIN;UserCommitSync=Yes;PWD=admind1234;"
    cn.Open
    '查询字符串可以上这里查
    'http://www.connectionstrings.com/
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub

Answer 2

你首先要在VB菜单中：
“工程”－－＞“引用”－－＞“Microsoft AxtiveX Data Objects 2.X Library”
注：2.X为版本号，如果你机子上有高版本的就用高版本的，如：2.5或2.6的Private Sub ComOK_Click()
   Dim SQLstr As String,cnstr AS String
　 Dim cn AS New ADODB.Connection'连接对象
   Dim rs As New ADODB.Recordset'记录集对象
   cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;" _
                   & "Data Source=" & App.Path & "\data\月欠税情况.mdb;" _
                   & "Persist Security Info=False" '连接字符串
   cn.open cnstr' 打开数据库连接
   rs.CursorLocation =adUseClient
   sqlstr="slect * from XXX表"
   rs.open sqlstr,cn,3,3'执行SQL语句，并返回记录
   set datagrid1.datasource=rs
   datagrid1.refresh
   rs.close'关闭记录集对象
   set rs=nothing
End Sub
本示例是将数据库中的一张表的记录显示在datagrid的控件中。

Answer 3

http://community.csdn.net/Expert/topic/3155/3155508.xml?temp=.1906092问题差不多!~

Answer 4

但是我就是错在这句上
set datagrid1.datasource=rs实时错误'7004'
行集合不能作为标签除了引用Microsoft AxtiveX Data Objects 2.X Library
应该还得在 工程-〉部件 里面引用Microsoft datagrid Control 6.0(SP5)(OLEDB)吧

Answer 5

工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）    Dim CN   As New ADODB.Connection                '定义数据库的连接
    Dim Rs   As New ADODB.Recordset
    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
    CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic
   Set DataGrid1.DataSource = Rs

Answer 6

TO ： iamprobe加上这一句，为客户端游标
Rs.CursorLocation = adUseClient

Answer 7

Rs.CursorLocation = adUseClient
这句话是什么意思啊？