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

[架构之路]

在模块中建立数据库连接，如下：

Public SenC As rdoConnection
Public SenE As rdoEnvironment

Public 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 Sub

Public Sub CloseDataBase()
SenC.Close
SenE.Close
End Sub


然后我在窗体中希望的功能是 TDBGrid1.DataSource = senc 显然这样使用是错误的。
能否指导我 连接数据库应该如何写呢？？ 不吝赐教

[nmjiaoaqiang]

用记录集来传数据.
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

[架构之路]

急啊~~~~

[架构之路]

没人知道动态连接数据库如何连吗？

[vbman2003]

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

[架构之路]

我已使用过 set
高手帮忙啊

[dh0498]

DataSource

[dh0498]

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

[dqhuaying]

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