请问用DataGrid如何显示出数据库的数据表(在线等待)

Question

1.建立连接ado 数据连接
2.建立ado的command对象
dim cmd as new adodb.command
cmd.commandtext="select * from customer"
datagrid1.datasource=cmd.execute

Answer 1

上面那位格格，我想请问一下，能不能不用adodc 控件，或者数据环境设计器，我是用ado,odbc
sql 语句，想在datagrid 里显示数据集，怎么办？

Answer 2

那就设dsn咯,不然用connection来连接jet4.0引擎

Answer 3

先引用 microsoft activex data object library2.1
再建一个模块。model代码如下：
  public cn as new connection
  public rs as new recorderset
  
Function cnDB() As Connection
Con1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=master;Data Source=NIIT_GUO"
Con1.Open
Set cnDB = Con1
End FunctionFunction rsDB(Con1, sql As String) As Recordset
Rst.Open sql, Con1, adOpenDynamic, adLockPessimistic
Set rsDB = Rst
End Function
窗口代码如下：
  Private Sub Form_Load()
Set Con1 = cnDB()
Rst.CursorLocation = adUseClient
Set Rst = rsDB(Con1, "Select * From customer")
DataGrid1.ClearFields
Set DataGrid1.DataSource = Rst
End Sub
在windows sever 2000+sql sever 2000 下测试通过

Answer 4

修改：
  把public cn as new connection 和 public rs as new recorderset
  改为： public Con1 as new connection 和 public Rst as new recordset