一个有关问题

一个问题
1.vb连接数据库 通常用odbc 与 ado 我想问下他们的差异？？简单的说就行了

2.比如我用listview listbox dbgrid三种常用的与数据库搭配用
  很多代码都是绑定方法，我知道有不是对，但VB中代码怎么样？能否给个小例子。（非绑定的）

3.比如 szQry = " (SELECT METER_NUMBER " & _
  " FROM CWS_METER_MASTER " & _
  " WHERE METER_MASTER_ID = " & ptrData1!METER_MASTER_ID & ")"
   
  ptrData2.Open szQry
  然后就可以用ptrData2!METER_NUMBER 来给变量赋值。
   
  我知道你还不知道我想说什么，”我表达能力确实差“ 就是说我不是用rs接收了"exec sql" 的记录了吗？？
  我想把这条记录的第一个字段的值取出来赋给别人 怎么写？难道是rs.字段名？？？

[解决办法]
（1）odbc开放数据连接ado活动数据对象
（2）创建一个connection，打开，然后创建一个recordset，使用前面的连接执行sql，返回数据
用循环读取数据，加载即可。listview可以使用listitem对象；listbox使用additem；grid可以使用rows对象。
（3）返回的recordset，使用recordset!字段名，获取数据。
[解决办法]
http://download.csdn.net/source/1627068
http://download.csdn.net/source/1371356
[解决办法]
我一直想写一个 连接数据库操作的教程...哎..没时间...

VB code

Public cn As New ADODB.connection     '定义数据连接Public rs As New ADODB.Recordset     '定义数据集对象Public strcn As StringGlobal czUser As String              '当前操作员Public userpassword, username As String   '存放当前登陆用户名和密码,用于修改密码Public isEdit As Boolean            '是否修改'*****************************************'功能说明：数据库连接'创建时间:2008.11.4'*****************************************Public Sub connection()    strcn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB\DB.mdb;Persist Security Info=False"    cn.ConnectionString = strcn    cn.OpenEnd Sub使用的时候类似于这样就行了....    Dim sql As String    If cn.State <> 1 Then        connection    End If    lv.ListItems.Clear    sql = "select * from t_info"Dim itmx As ListItem    Set rs = cn.Execute(sql)    While rs.EOF = False    Set itmx = lv.ListItems.add(, "key" & rs!id, rs!Name, 4, 5)    itmx.SubItems(1) = rs!zuozhe    itmx.SubItems(2) = rs!shuoming    itmx.SubItems(3) = rs!fenlei    itmx.SubItems(4) = rs!addtime    itmx.SubItems(5) = rs!Path    rs.MoveNext    Wend    rs.Close
[解决办法]
VB code
Private Sub Command1_Click()Dim sql As StringDim str As StringSet con = New ADODB.Connection '这句要加上con.CursorLocation = adUseClient '这句也要加上才会有数据，如果加上也没有数据，看看数据表是不是空的str = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\aiqihao.mdb;"con.ConnectionString = strcon.OpenSet rs = New ADODB.Recordsetsql = "Select * From userinfo"rs.Open sql, con, adOpenStatic, adLockOptimisticSet DataGrid1.DataSource = rsDataGrid1.RefreshEnd Sub