注册 登录
编程论坛 VB6论坛

datagrid绑定recordset对象,不能显示

za569578898 发布于 2013-08-06 11:24, 651 次点击

Option Explicit

Public cn As String
Public cnn As New ADODB.Connection
Public comm As New
Public rs As New ADODB.Recordset
Public sqlc As String

Private Sub Form_Load()
     cn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\salary\DATA\salary.mdb;Persist Security Info=False"
     sqlc = "select * from 职员"
End Sub

Private Sub Command1_Click()
  cnn.ConnectionString = cn
  cnn.Open
  rs.Open sqlc, cnn, 3, 2
  Set DataGrid1.DataSource = rs
  rs.Close
  cnn.Close
End Sub
请高手指点:
为什么无法显示数据,谢谢
 
3 回复
#2
lowxiong2013-08-06 12:36
不要急着close,关闭了当然无数据
Private Sub Command1_Click()
  '打开  
  cnn.ConnectionString = cn
  cnn.Open
  rs.Open sqlc, cnn, 3, 2
  Set DataGrid1.DataSource = rs
End Sub
Private Sub Command2_Click()
  '关闭
  rs.Close
  cnn.Close
  Set DataGrid1.DataSource =nothing
End Sub



[ 本帖最后由 lowxiong 于 2013-8-6 12:38 编辑 ]
#3
Artless2013-08-06 12:48
以下是引用za569578898在2013-8-6 11:24:37的发言:


Option Explicit

Public cn As String
Public cnn As New ADODB.Connection
Public comm As New
Public rs As New ADODB.Recordset
Public sqlc As String

Private Sub Form_Load()
     cn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\salary\DATA\salary.mdb;Persist Security Info=False"
     sqlc = "select * from 职员"
End Sub

Private Sub Command1_Click()
  cnn.ConnectionString = cn
  cnn.Open
  rs.Open sqlc, cnn, 3, 2
  Set DataGrid1.DataSource = rs
  rs.Close
  cnn.Close
End Sub
请高手指点:
为什么无法显示数据,谢谢
 
红色删除掉
#4
za5695788982013-08-06 13:00
谢谢,搞定了
1