VB ado连接数据库 sql2005

最新推荐文章于 2019-07-21 23:02:10 发布

阿强的一亩三分地

最新推荐文章于 2019-07-21 23:02:10 发布

阅读量4.4k

点赞数

分类专栏： VB SQL连接文章标签： vb 数据库 sql database sql server string

本文链接：https://blog.csdn.net/eqiang8271/article/details/2277690

版权

VB SQL连接专栏收录该内容

3 篇文章 0 订阅

订阅专栏

VB访问SQL Server数据的常用方法

Private Sub Form_Load()

          Dim AdoConn As New ADODB.Connection
          Dim AdoRs As New ADODB.Recordset
          Dim strSQL As String
          Dim strAdoConn As String
          Dim strRs As String
          strSQL1 = "select * from wordslist"
          strsql2 = "insert into wordslist([userid],[Word] ,[WordExplain],[LearnType]) values('aa','asfsd','fasdf',2)"

          On Error Resume Next
                  strAdoConn = "provider='SQLOledb';Server=127.0.0.1;Database=aspnetdb;UID=sa;PWD=试试;"

'    或者下面连接都可以
'strAdoConn = "provider='SQLOLEDB';Data Source=127.0.0.1;Database=aspnetdb;UID=sa;PWD=试试;"
                  MsgBox strAdoConn

                  AdoConn.CommandTimeout = 30
                  AdoConn.Open strAdoConn

          On Error GoTo 0

            AdoRs.Open strsql2, AdoConn, adOpenStatic, adLockReadOnly
            AdoRs.Open strSQL1, AdoConn, adOpenStatic, adLockReadOnly
            If AdoRs.RecordCount > 0 Then strRs = AdoRs!Word
            MsgBox strRs
            AdoRs.Close
End Sub