急:一个关于ADO和Datagrid的问题的连接

Question

Dim db As Database
Dim td As TableDefSet db = OpenDatabase("c:\vbfile\record.mdb")
Set rs = db.OpenRecordset("danbao")Adodc1.ConnectionTimeout = 15     这句话可能没用吧
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\vbfile\record.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"        ConnectionString 我从生成字符串中拷过来的
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = danbao  数据库中已经存在的表Set DataGrid1.DataSource = Adodc1.Recordset
DataGrid1.Refresh
这样的话却不能正确显示,而在DataGrid1属性值DataSoourse中设置为Adodc1
是不是前面的连接出了什么问题???哪位大侠告诉我应该怎么写,谢了.

Answer 1

工程--->引用--->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 2

引用：2.access
工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）    Dim CN   As New ADODB.Connection                '定义数据库的连接
    Dim Rs   As New ADODB.Recordset    CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NWIND.MDB;Persist Security Info=False"
    CN.Open    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic    Set DataGrid1.DataSource = Rs

Answer 3

对应的两句改成下面这样就可以了Adodc1.RecordSource = "danbao" ' 数据库中已经存在的表Set DataGrid1.DataSource = Adodc1

Answer 4

为什么一定要用DataGrid我两年前就不用它了，受限制太多了。
现在是ado加代码
用insert update delete 想做什么都行。一句话搞定，我管在界面上做多少次改动？

Answer 5

一般函数，直接自己调用函数。'连接数据库
Public Function OpenDB() As Boolean    On Error GoTo Err
    ErrMsg = ""
    Set Conn = CreateObject("adodb.connection")
    Conn.CursorLocation = 3
    'ConnStr = "driver={SQL Server};server=zh;uid=sa;pwd=;database=test"
    Conn.Open ConnStr
    OpenDB = True
    Exit Function
Err:
    Set Conn = Nothing
    ErrMsg = Err.Number & ":" & Err.Description
    OpenDB = False
End Function'打开结果集
Public Function OpenRS(ByVal Sql As String, ByRef TRS As Object) As Boolean
    On Error GoTo Err
    Dim RS As Object
    ErrMsg = ""
    If Conn Is Nothing Then ErrMsg = "数据库未建立连接": GoTo Err
    If InStr(1, Sql, "insert") >= 1 Or InStr(1, Sql, "delete") >= 1 Or InStr(1, Sql, "update") >= 1 Then
        Conn.Execute Sql
    Else
        Set RS = Conn.Execute(Sql)
    End If
    Set TRS = RS
    OpenRS = True
    Set RS = Nothing
    Exit Function
Err:
    Set RS = Nothing
    OpenRS = False
End Function用的时候：
opendb
OpenRS "select * from t_item where FNumber='" & ParentStr(0) & "' and FItemClassID='" & HItemClassId & "'", ItemRS
OpenRS "insert into t_logmess values ('" & K3Login.UserName & "," & Date & Time & "," & ErrorMessage & "','" & text_File & "')", ItemRS     ' , TRS