一个有关问题

一个问题
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.****.net/source/1627068
http://download.****.net/source/1371356
------解决方案--------------------
我一直想写一个连接数据库操作的教程...哎..没时间...

VB code


Public cn As New ADODB.connection     '定义数据连接
Public rs As New ADODB.Recordset     '定义数据集对象
Public strcn As String
Global 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.Open
End 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 String
Dim str As String
Set 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 = str
con.Open
Set rs = New ADODB.Recordset
sql = "Select * From userinfo"
rs.Open sql, con, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh

End Sub

相关推荐