请教，如何手动建立连接，应该用dbGrid的哪一个属性来连接数据库？

Question

在模块中建立数据库连接，如下：Public SenC As rdoConnection
Public SenE As rdoEnvironmentPublic Sub OpenDataBase()
    DSN_UID_PWD = GetCommandValue(6)
    rdoEngine.rdoDefaultCursorDriver = rdUseServer
    Set SenE = rdoEngine.rdoEnvironments(0)
    Set SenC = SenE.OpenConnection("", False, False, DSN_UID_PWD)    
End SubPublic Sub CloseDataBase()
    SenC.Close
    SenE.Close
End Sub
然后我在窗体中希望的功能是   TDBGrid1.DataSource = senc  显然这样使用是错误的。
能否指导我 连接数据库应该如何写呢？？  不吝赐教

Answer 1

不懂 rdo
不过TDBGrid1.DataSource = senc  改为 Set TDBGrid1.DataSource = senc  试试

Answer 2

我已使用过 set
高手帮忙啊

Answer 3

用记录集来传数据.
Dim cnStr As String
cnStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=123456;Initial Catalog=glxt;Data Source=Jiao"
'这里是连接数据库的
With rsrmk
          .ConnectionString = cnStr
          .CommandType = adCmdText
          sqlstr = "select * from jindubiao "
          .RecordSource = sqlstr
   Set DataGrid1.DataSource = rsrmk
     
     .Refresh
End With
rsrmk是adodc

Answer 4

with spread            .Col2 = 5
            .Col = 1
            .DataField = "MCustNo"
            .ColHidden = True
            .Clip = sMCustNo
            .Col = 2
            .DataField = "CustNo"
            .ColWidth(2) = 15
            .Clip = sCustNo
            .Col = 3
            .DataField = "CustomerName"
end with

Answer 5

vbman2003(家人)
--------------------
汗一个,既然猩猩等级了,不懂RDO?   大概一直ADO惯了!