求助在代码中设置DataGrid记录来源问题

Question

我想让DataGrid显示SELECT语句查询的记录结果，请问在代码中怎样设置，在此先谢谢各位了

Answer 1

下面是用adodc控件来连接数据库,你也可以引用ADO,都一样.你可以参考一下.  Dim strSQL As String
  Dim cnn As String
  cnn = "这里是你连接的字符串"
  strSQL = "select语句"
    '下面的语句可以写在一个模块里
  With adodc1
    .ConnectionString = cnn
    .RecordSource = strSQL
    .Refresh
  End with
  Set DataGrid1.DataSource = Adodc1     '

Answer 2

你试试吧，好用的
记得要引用ado   Dim WithEvents adoPrimaryRS As Recordset '数据库连接对象
Private Sub Command1_Click()
   'strsql 是你的查询语句 你可以order by 排序的字段
   strsql="select 字段 from 表"
   Set Db = New Connection
   Db.CursorLocation = adUseClient
   '下面的连接数据字符串你要修改一下
   Db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\计划管理系统.mdb;Persist Security Info=False"
   Set adoPrimaryRS = New Recordset
   adoPrimaryRS.Open strsql, Db, adOpenStatic, adLockOptimistic
   Set DataGrid1.DataSource = adoPrimaryRS
end sub

Answer 3

Dim cn As ADODB.Connection
Dim rs As ADODB.RecordsetSet cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDataPathName & ";Persist Security Info=False"Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM table1",cnSet DataGrid1.DataSource = rs