不是很会SQL 下面的数据库的登陆名和密码是多少??是否有错误?我登陆不了界面,数据库不存在或拒绝访问。。。。能帮下忙吗?在线等。。急用,谢谢
Option Explicit
Public con As ADODB.Connection
Public rct As ADODB.Recordset
Public Str_StrAs String
Public Str_System As String
Public Num_System As Integer
'下面用于设置窗体的形状 API函数
Public Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Public Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Public IsWhat As String
Public strSQL As String
'Public Str_admin As String
Public Admin_ID As String
Public Function Connect() As Boolean
On Error GoTo ON_ERROR
Set con = New ADODB.Connection
Set rct = New ADODB.Recordset
Dim llll As String
con.CursorLocation = adUseClient
con.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=LibraryManageSystem;Data Source=127.0.0.1"
con.Open
Connect = True
Exit Function
ON_ERROR:
MsgBox "错误描述" & Err.Description & vbCrLf & "错误代码" & Err.Number, vbCritical + vbOKOnly, "打开数据库错误"
Connect = False
End Function
Public Function RunSQL(ByVal strSQL As String) As Boolean
On Error GoTo ON_ERROR:
If rct.State = 1 Then rct.Close
'Set rct = con.Execute(strSQL)
rct.Open strSQL, con, adOpenStatic, adLockPessimistic, -1
RunSQL = True
'con.CursorLocation = adUseClient
Exit Function
ON_ERROR:
MsgBox "错误描述" & Err.Description & vbCrLf & "错误代码" & Err.Number, vbCritical + vbOKOnly, "错误提示"
RunSQL = False
End Function
'子定义的事件验证 Rct是不是打开
Public Sub RctClose()
If rct.State = adStateOpen Then
rct.Close
End If
End Sub
Sub Main()
Frmsplash.Show
End Sub
|