求助？关于datagrid控件 （在线等）

Question

程序如下：
Adome.ConnectionString = dbconnSource
Adome.CommandType = adCmdText
Adome.RecordSource = "select billid,credenceid,filldata,bills,countnum,filler,billnum from Xsoft_credence"  
Adome.Refresh
  Dgd1.AllowAddNew = True
  Dgd1.AllowDelete = True
  Dgd1.Columns(0).Caption = "单据号"
  Dgd1.Columns(1).Caption = "凭证号"
  Dgd1.Columns(2).Caption = "凭证入帐日期"
  Dgd1.Columns(3).Caption = "所属单据张数"
  Dgd1.Columns(4).Caption = "发生数据"
  Dgd1.Columns(5).Caption = "填制人"
  Dgd1.Columns(6).Caption = "分录数量"
  Set Dgd1.DataSource = Adome
  Dgd1.Refresh
'adome 为ADODC，dgd1为DATAGRID
运行程序，DGD1会生成相对应的Adome.Recordset.RecordCount数据量的行，但就是看不到内容。
我把Dgd1.AllowDelete = True打开，在程序中可以删除数据库中的内容，但Dgd1.AllowAddNew = True却就是不能增加，连输入文字都不行，求高手指点。  在线等！！！

Answer 1

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
照着上面的去改写。

Answer 2

请问有没有用ADODB的方法呀？

Answer 3

搞错了，是有没有用ADODC的方法？

Answer 4

daisy8675(莫依) 按照你的方法所得到的结果和我之前的结果是一样的。MsgBox Rs.RecordCount 显示出来的数量和我开始的一样，同时有生成在DATAGIRD里生成了相对应的几行，但就是上面没有任何数据。

Answer 5

Option ExplicitPublic Rs As New ADODB.Recordset
Public Conn As New ADODB.Connection
Private Sub Command1_Click()
  On Error Resume Next
  
  Me.Adodc1.Recordset.AddNew
  
End SubPrivate Sub Form_Load()
  Dim strConn As String
  
  strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\People.mdb;Persist Security Info=False"
  
  Adodc1.ConnectionString = strConn
  Adodc1.RecordSource = "Select * from Man"
  Adodc1.CommandType = adCmdUnknown
  
  Set Me.DataGrid1.DataSource = Adodc1
  
  End Sub

Answer 6

把你的程序发过来[email protected]

Answer 7

我想是不是DATAGRID设置出了什么问题，请哪位帮助一下呀。

Answer 8

daisy8675(莫依) 我给你发了邮件了。

Answer 9

已经OK。你既然在datagrid设置了列，你就要在属性页中设顶列所对应的字段
已经mail回给你了你自己看吧。