如何显示取得的数据？

Question

with adodc1
  .connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=
                    c:\data.mdb;PersistSecurityInfo=False"
  .commandtype=cmdtext
  .recordsource=sql = "select * from 数据表"
  .refresh
end with
set datagrid1.datasource=adodc1

Answer 1

没办法，datagrid控件不会只能在开始时候附属性才管用吧。

Answer 2

刚试过了，其他数据控件都可以用，但只有datagrid不能显示数据！为什么，我那里有错误呢？

Answer 3

这个也不行啊！不过谢谢你，你再帮我分析分析！其他的控件只要设置datasource和datafield
就好了，可是datagrid不管用啊！这究竟是为什么？神啊！救救我吧。

Answer 4

估计你在DATAGRID上设置了一些属性，你将它删除了，在放一个，在联接试试。应该是没有问题的。我在机子 上试了，没问题。你要用代码控制就用代码 ，不要绑定代码都用。

Answer 5

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strsql As String
Dim sql As String
strconn= "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=c:\data.mdb;PersistSecurityInfo=False"
conn.Open strconn
sql = "select * from 数据表"
rs.Open sql, conn, adOpenKeyset, adLockOptimistic, adCmdText
Set datagrid1.datasourse=rs
不用ADODC控件

Answer 6

同意zauli(波)
要么用adodc
要么用adodb

Answer 7

Public Sub Ini_Ado1(vado, vdbgrid)
    Dim ado As Adodc
    Dim dbgrid As DataGrid
    
    Set ado = vado
    Set dbgrid = vdbgrid
    
    With ado
      .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\vb_project\bet\bet.mdb;Persist Security Info=False"
      .RecordSource = "select bet_no,no_1,no_2,no_3,no_4,no_5,no_6,no_7,no_8 from bet order by bet_no desc"
      .Visible = False
    End With
    
    ado.Refresh
    Set dbgrid.DataSource = ado
    dbgrid.Refresh
    With dbgrid
        .Columns(0).Caption = "彩票期数"
        .Columns(1).Caption = "第一号"
        .Columns(2).Caption = "第二号"
        .Columns(3).Caption = "第三号"
        .Columns(4).Caption = "第四号"
        .Columns(5).Caption = "第五号"
        .Columns(6).Caption = "第六号"
        .Columns(7).Caption = "第七号"
        .Columns(8).Caption = "特殊号"
        .Columns(0).Width = 850
        .Columns(1).Width = 650
        .Columns(2).Width = 650
        .Columns(3).Width = 650
        .Columns(4).Width = 650
        .Columns(5).Width = 650
        .Columns(6).Width = 650
        .Columns(7).Width = 650
        .Columns(8).Width = 650
        .Columns(0).AllowSizing = False
        .Columns(1).AllowSizing = False
        .Columns(2).AllowSizing = False
        .Columns(3).AllowSizing = False
        .Columns(4).AllowSizing = False
        .Columns(5).AllowSizing = False
        .Columns(6).AllowSizing = False
        .Columns(7).AllowSizing = False
        .Columns(8).AllowSizing = False
        .AllowRowSizing = False
        .AllowUpdate = False
        .AllowDelete = False
        .Width = 6600
    End With
End Sub
好象没问题啊