vb连接SQL SERVER

最新推荐文章于 2023-10-23 14:24:34 发布

ruiqingzheng

最新推荐文章于 2023-10-23 14:24:34 发布

阅读量1.9k

点赞数

分类专栏：数据库开发技术

本文链接：https://blog.csdn.net/ruiqingzheng/article/details/8675688

版权

数据库开发技术专栏收录该内容

1 篇文章 0 订阅

订阅专栏

vb 访问数据库

工程-> 引用 Microsoft Activex Data Objects 2.5 Library

module1.mod
Public Function getRec() As ADODB.Recordset
    On Error GoTo err
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Set conn = New ADODB.Connection
    With conn
        .Provider = "sqloledb.1"
        .ConnectionString = "integrated security = sspi;" & _
                            "data source = 'yd04'; inital catalog = 'pubs';" & _
                            "user id = 'sa' ; password = ''"
        .Open
    End With
    Set rs = New ADODB.Recordset
    With rs
        .ActiveConnection = conn
        .Source = "select * from jobs;"
        .CursorType = adOpenKeyset
        .LockType = adLockOptimistic
        .Open
    End With
    Set getRec = rs
    Exit Function
err:
    Set getRec = Nothing
    MsgBox "´connection error"
End Function

form1
Dim dbrs As ADODB.Recordest
Private Sub Command1_Click()
    Set dbrs = getRec()
    Text1.Text = dbrs.Fields(0).Value
    test2.Text = dbrs.Fields(1).Value
    test3.test = dbrs.Fields(3).Value

    MsgBox dbrs.Fields.Count

End Sub

阅读(1788) | 评论(3) | 转发(0) |

上一篇：snmp

下一篇：vb中读写文本文件

相关热门文章

给主人留下些什么吧！~~

chinaunix网友2006-03-27 23:41:15

我在SQL Server 2000中创建数据库成功后,ado通过odbc创建与数据库的连接时总是出现连接失败错误53:[Microsoft][ODBC SQL Server Driver][DBNETLIB]connectionOpen(connect()) 连接失败错误17::[Microsoft][ODBC SQL Server Driver]][DBNETLIB]SQL Server 不存在或访问被拒绝各位好心人怎么解决呀 ,谢谢

回复 | 举报

chinaunix网友2006-03-10 21:58:21

大哥俺这是N久前自己的一点笔记写得只有自己看得懂当然可以运行了不过可能缺点代码。。。。。呵呵自己想办法不好意思都不搞VB很久了。。。。

回复 | 举报

chinaunix网友2006-03-09 16:35:35

能够运行吗？

回复 | 举报

评论热议

ruiqingzheng

关注

0
点赞
踩
2

收藏

觉得还不错? 一键收藏
0
评论
vb连接SQL SERVER

vb 访问数据库工程-> 引用 Microsoft Activex Data Objects 2.5 Librarymodule1.modPublic Function getRec() As ADODB.Recordset On Error GoTo err Dim conn As ADODB.Connection Dim rs As ADODB.Recordset
复制链接

扫一扫

专栏目录