Vb 数据源问题??

Question

定义
  Dim cnn As ADODB.Connection
  Dim rst As ADODB.Recordset
在VB中DataGrid1的数据源DataSource如何连接??

Answer 1

Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
cnn.open "连接字符串"
rst.open "sql语句",con,1,1
set DataGridl.DataSource = rst

Answer 2

在属性页中设置的是数据绑定，用代码写比较好些，    '打开ACCESS数据库方法
    'conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\datebase\xy.mdb;Persist Security Info=False"
    
    '打开SQLSERVER数据库方法
    
    '"PROVIDER=MSDASQL;DSN=polo;UID=sa;PWD=****;Database=****;"
'以下代码为应用时用到 
Dim rs As ADODB.Recordset
     Set rs = New ADODB.Recordset
     sql = "select * from [power] where model='" & Modelf & "' and user_id=" & User_id
     rs.Open sql, conn, adOpenDynamic, adLockOptimistic

Answer 3

cnn.open
cnn.CursorLocation = adUseClient

Answer 4

数据库打开后用这句
set DataGridl.DataSource = rst