VB   发布时间:2022-04-03  发布网站:大佬教程  code.js-code.com
大佬教程收集整理的这篇文章主要介绍了VB通过ADO连接SQL数据的两种方法大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
VB使用ADO数据库可以分为有源数据库和无源数据库,即是否使用了DSN数据源,如下例:
1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects recordset 2.6两个组件,这是在连接数据前所必做的工作。
2、接下来定义ADO的连接对象,如下所示:
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
第一种方法采用的是无源的数据库连接方法
conn.ConnectionString = "Driver={sql server};server=JSZX3-11;uid=sa;pwd=;database=wzc"
conn.ConnectionTimeout = 30
conn.open
rs.Open "SELEct 用户名,密码 from login where 用户名='" & Trim(Combo1.Text) & "' And 密码='" & Trim(Text1.Text) & "'",conn,adopenStatic,adLockReadOnly,adCmdText
If rs.EOF = True And rs.bOF Then @H_24_1@m = MsgBox("请重新登录",vbExclamation)
Text1.Text = ""
Text1.SetFocus
Else
Form1.Hide
End If
rs.Close

这是第二种方法连接数据库的方法,这一种方法是采用有源的方法与数据库连接的方法,代码如下所示:
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "DSN=login;uid=sa;pwd=;"
conn.ConnectionTimeout = 30
conn.open
rs.Open "SELEct 用户名 from login",adCmdText
Dim i As String
For t = 0 To Val(rs.RecordCount) - 1
i = Trim(rs.Fields("用户名").value)
rs.MoveNext
Combo1.AddItem i
Next t
rs.Close
申明:
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDc As Long,ByVal nIndex As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long,ByVal hDc As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

'按钮的代码:
Private Sub 命令1_Click() Dim dc As Long dc = GetDC(0) If GetDeviceCaps(dc,8) = 1024 Then DOCMd.openForm "窗体1" ElseIf GetDeviceCaps(dc,8) = 800 Then DOCMd.openForm "窗体2" End If End Sub

大佬总结

以上是大佬教程为你收集整理的VB通过ADO连接SQL数据的两种方法全部内容,希望文章能够帮你解决VB通过ADO连接SQL数据的两种方法所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。