True DBGrid 控件的问题，非常简单，麻烦进来看看

来源：百度知道 编辑：UC知道 时间：2024/07/04 19:24:09
为什么遮掩写还是不能显示资料呢？
strsql = "select * from abc"
conn.Open
Set rs = conn.Execute(strsql)
Set TDBGrid1.DataSource = rs.DataSource
TDBGrid1.Refresh
好奇怪，我用adodc就可以，但是用adodb就没试过成功

估计是你在设置数据库的时候出问题了,比如说游标类型锁类型之类,上面的我就没看到连接字符串,adodc是自动设置好这些了的
试试用下面的函数打开数据库(以下程序写在标准模块中,打开数据库只是需要写一句OpenADOData

Public CONN As New ADODB.Connection
Public RcAdo As New ADODB.Recordset
Public SQL As String
Public Sub OpenADOData() '连接ADO数据库
CloseAdoData '先关闭数据库
On Error GoTo 100
Set CONN = New ADODB.Connection
CONN.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=MS Access Database;Mode=ReadWrite;Initial Catalog=" & App.Path & 你的数据库文件地址
CONN.CursorLocation = adUseClient
RcAdo.LockType = adLockPessimistic
'上面这几行很重要
Exit Sub
100:
MsgBox "数据库连接失败!", vbOKOnly + vbCritical, "错误"
End Sub
Sub CloseAdoData() '关闭
On Error Resume Next
RcAdo.Close
Set RcAdo = Nothing
CONN.Close
Set CONN = Nothing
End Sub

GOOGLE上搜一下吧

这里解答问题真快啊