VB ADO对象

2008-05-12 00:34:01

通过ADO对象来操作数据库

使用ado对象上课时我们在工程--引用中添加MIcrosoft ActiveX Data Objects 2.5 Library
部分代码如下

    Dim conn As New ADODB.Connection
    Dim cmd As New ADODB.Command
    Dim rs As New ADODB.Recordset

    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\info.mdb;Persist Security Info=False"
    Set cmd.ActiveConnection = conn
    cmd.CommandText = "select distinct 地点 from jiankao"
    rs.CursorLocation = adUseClient
    rs.Open cmd, , adOpenStatic, adLockBatchOptimistic
    rs.MoveFirst
    Do While Not rs.EOF
        Combo1.AddItem rs.Fields(0)
        rs.MoveNext
    Loop
End Sub

本文出自 “计算机编程开发” 博客，请务必保留此出处http://wangwenlong.blog.51cto.com/372835/76429

上一篇 VB ADO控件　　下一篇全国等考中冒泡排序的改进

类别：VB语言 ┆ 技术圈() ┆ 阅读() ┆ 评论() ┆推送到技术圈 ┆返回首页

相关文章

文章评论

昵称：
验证码：		点击图片可刷新验证码　　博客过2级，无需填写验证码
内容：