VB连接SQL最简单方法

Public conn As ADODB.Connection<br />
Public rs As ADODB.Recordset<br />
Public addFlag As Boolean      \’声明部分<br />
Public Function OpenCn(ByVal Cip As String, ByVal users As String, ByVal pw As String, ByVal sjk As String) As Boolean \’连接模块 填写数据库等信息<br />
Dim mag As String<br />
On Error GoTo strerrmag<br />
Set conn = New ADODB.Connection<br />
conn.ConnectionTimeout = 25<br />
conn.Provider = “sqloledb”<br />
conn.Properties(“data source”).Value = Cip     \’服务器的名字<br />
conn.Properties(“initial catalog”).Value = sjk         \’库名<br />
\’conn.Properties(“integrated security”).Value = “SSPI”      \’登陆类型<br />
conn.Properties(“user id”).Value = users \’SQL库用户名<br />
conn.Properties(“password”).Value = pw \’密码<br />
conn.Open<br />
OpenCn = True<br />
If conn.State = 1 Then addFlag = True<br />
Exit Function<br />
strerrmag:<br />
     mag = “连接失败！”<br />
     Call MsgBox(mag, vbOKOnly, “错误：”)<br />
     addFlag = False<br />
     Exit Function      \’连接错误消息<br />
End Function</p>
<p>\’关闭数据库，释放连接<br />
Public Sub cloCn()<br />
On Error Resume Next<br />
If conn.State <> adStateClosed Then conn.Close<br />
Set conn = Nothing<br />
End Sub</p>
<p>Public Function openRs(ByVal strsql As String) As Boolean      \’连接数据库记录集<br />
Dim mag As String<br />
Dim rpy As Boolean<br />
On Error GoTo strerrmag<br />
     Set rs = New ADODB.Recordset<br />
     If addFlag = False Then rpy = True<br />
     With rs<br />
     .ActiveConnection = conn<br />
     .CursorLocation = adUseClient<br />
     .CursorType = adOpenKeyset<br />
     .LockType = adLockOptimistic<br />
     .Open strsql<br />
     End With<br />
     addFlag = True<br />
     openRs = True<br />
     \’End        \’将记录集给rs<br />
     Exit Function<br />
strerrmag:<br />
     mag = “记录返回错误！”<br />
     Call MsgBox(mag, vbOKOnly, “错误：”)<br />
     openRs = False<br />
     \’End<br />
     Exit Function \’连接错误消息<br />
End Function<br />
Public Sub cloRs()<br />
On Error Resume Next<br />
If rs.State <> adStateClosed Then rs.Clone<br />
Set rs = Nothing \’释放记录集<br />
End Sub<br />
本文链接：https://www.cnblogs.com/andriod-html5/archive/2012/02/28/2539252.html
VB连接SQL最简单方法

VB连接SQL最简单方法的更多相关文章

随机推荐

热门专题

目录导航
