Public SqlConn As New ADODB.Connection
Public SqlRs As New ADODB.Recordset
Public SqlCmd As New ADODB.Command
Public Function DBConnect(strtype As String) As Boolean
Dim ConnStr As String
If SqlConn.State <> adSrareOpen Then
If strtype = "U" Then
SqlConn.Open ("FILE Name = " & App.Path & "\dbconn.udl")
Else
ConnStr = "Provider = SQLOLLEDB.1;Data Source = LAPTOP-ND06FMEL;User ID = sa;" & "Password = 12345678;Initial Catalog = StudentDB"
SqlConn.Open (ConnStr)
End If
End If
SqlCmd.ActiveConnection = SqlConn
DBConnect = True
End Function
Public Function ExecSQL(ByVal sql As String) As ADODB.Recordset
If SqlConn.State <> adStateOpen Then
DBConnect ("U")
End If
SqlCmd.CommandText = sql
Set ExecSQL = SqlCmd.Execute
End Function