Dim cnn As ADODB.Connection '连接数据库
Dim rss As ADODB.Recordset
Dim strcnn As String
strcnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\sysdata.mdb;Persist Security Info=False"
Set cnn = New ADODB.Connection
cnn.Open strcnn
rss.Open "select * from [information] "
DataGrid1.DataSource = rss连接数据库是成功的,但在DATAGRID显示是出现错误:
“未找到方法或数据成员”
1,请帮我解决?
2,如何进行DATAGRID中的数据刷新?
Dim rss As ADODB.Recordset
Dim strcnn As String
strcnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\sysdata.mdb;Persist Security Info=False"
Set cnn = New ADODB.Connection
cnn.Open strcnn
rss.Open "select * from [information] "
DataGrid1.DataSource = rss连接数据库是成功的,但在DATAGRID显示是出现错误:
“未找到方法或数据成员”
1,请帮我解决?
2,如何进行DATAGRID中的数据刷新?
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\STM.mdb;Persist Security Info=False"
Set DataGrid1.DataSource = Adodc1
Adodc1.RecordSource = "select * from stm1 "
End Sub
昨天刚刚调试成功的。
第二: DataGrid1.DataSource = rss 应该在前面加上set, 具体为:set DataGrid1.DataSource = rss
Dim rss As ADODB.Recordset
Dim strcnn As String
strcnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\sysdata.mdb;Persist Security Info=False"
Set cnn = New ADODB.Connection
cnn.Open strcnn set rss=new ADODB.Recordset
rss.Open "select * from information ",cnn,3,3
DataGrid1.DataSource = rss
改成
set DataGrid1.DataSource = rss
'莫依MM原创Option ExplicitPrivate Rs As New ADODB.Recordset
Private Conn As New ADODB.ConnectionPrivate Sub Form_Load()
Dim strConn As String
' 连接数据库的字符串
' 连接带密码的数据库,直接在连接符后面加上Jet OLEDB:DataBase Password='您的密码'
' 连接Access97数据库需要使用Jet.OLEDB.3.5,Access2K和以上数据库使用Jet.OLEDB.4.0
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"
' 使用客户端数据游标
Conn.CursorLocation = adUseClient
' 打开Access的连接
Conn.Open strConn
' 如果RecordSet的状态不是关闭状态,则关闭Recordset
If Rs.State <> adStateClosed Then Rs.Close
' Recordser打开表People
Rs.Open "Select * from People", Conn, adOpenKeyset, adLockOptimistic
' 报告出 一共多少笔数据,测试是否存在数据
' MsgBox Rs.RecordCount
' 绑定进DataGrid
Set DataGrid1.DataSource = Rs
End Sub
Public cnn As ADODB.Connection '连接数据库
Public rss As ADODB.Recordset
Private Sub Form_Load()
Dim strcnn As String
strcnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\sysdata.mdb;Persist Security Info=False"
Set cnn = New ADODB.Connection
cnn.Open strcnn
Set rss = New ADODB.Recordset
rss.Open "select * from information", cnn, 3, 3
Set DataGrid1.DataSource = rss
End Sub程序没有错误,但就是数据不显示?
' 使用客户端数据游标
Cnn.CursorLocation = adUseClient加一个msgbox rss.RecordCount
看看有没有记录有的话那就是你改了datagrid属性
重新换一个datagrid
有记录,
但现在还是不显示数据,这到底怎么回事,请大家帮忙呀!
把它删了,再重新放一个上去
在 Set cnn = New ADODB.Connection 后面加了:
cnn.CursorLocation = adUseClient
我不想让用户能修改DATAGRID中的数据,那么那个属性可以只让DATAGRID做显示用,用户无权修改