Mirage Source

Conn_Client.Open

Public Const strCONN = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=127.0.0.1;DATABASE=mirage_online;UID=root;PWD=;OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384

AES.cls
clsServer.cls
clsSocket.cls
clsSockets.cls
RLE.cls

Public DB_Conn As ADODB.Connection
Public DB_RS As ADODB.Recordset
Private Sub Form_Load()
    'Create the database connection object
    Set DB_Conn = New ADODB.Connection
    Set DB_RS = New ADODB.Recordset
   
    DB_Conn.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;DATABASE=projectdungeon;PORT=3306;UID=root;PWD=;OPTION=3"
    DB_Conn.CursorLocation = adUseClient
    DB_Conn.Open
   
    DB_RS.Open "SELECT * FROM banned_ips WHERE 0=1", DB_Conn, adOpenStatic, adLockOptimistic
    DB_RS.Close
End Sub

    DB_RS.Open "SELECT * FROM banned_ips WHERE 0=1", DB_Conn, adOpenStatic, adLockOptimistic

Option Explicit

Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyname As Any, ByVal lpString As String, ByVal lpfilename As String) As Long
Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyname As Any, ByVal lpdefault As String, ByVal lpreturnedstring As String, ByVal nsize As Long, ByVal lpfilename As String) As Long

'Database Stuff
Public Const strCONN = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=127.0.0.1;DATABASE=mirage_online;UID=root;PWD=;OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
'Connections....
Public Conn_Server As ADODB.Connection
Public Conn_Client As ADODB.Connection
'RecordSets
Public RS_LoadPlayer As ADODB.Recordset
Public RS_LoadChar As ADODB.Recordset
Public RS_SavePlayerNEW As ADODB.Recordset
Public RS_SavePlayerUPDATE As ADODB.Recordset
Public RS_SaveCharNEW As ADODB.Recordset
Public RS_SaveCharUPDATE As ADODB.Recordset
Dim RS_LOGS As ADODB.Recordset

Public Sub InitDB()
'Setup Connections
Set Conn_Client = New ADODB.Connection
Conn_Client.CursorLocation = adUseClient
Conn_Client.ConnectionString = strCONN
Conn_Client.Open

Set Conn_Server = New ADODB.Connection
Conn_Server.CursorLocation = adUseServer
Conn_Server.ConnectionString = strCONN
Conn_Server.Open

'Setup Connections

'Accounts
Set RS_SavePlayerNEW = New ADODB.Recordset
Set RS_SavePlayerUPDATE = New ADODB.Recordset
Set RS_LoadPlayer = New ADODB.Recordset
RS_SavePlayerNEW.Open "SELECT * FROM accounts LIMIT 1;", Conn_Client, adOpenStatic, adLockOptimistic

'Characters
Set RS_SaveCharNEW = New ADODB.Recordset
Set RS_SaveCharUPDATE = New ADODB.Recordset
Set RS_LoadChar = New ADODB.Recordset
RS_SaveCharNEW.Open "SELECT * FROM characters LIMIT 1;", Conn_Client, adOpenStatic, adLockOptimistic

'Logs
Set RS_LOGS = New ADODB.Recordset
RS_LOGS.Open "SELECT * FROM logs LIMIT 1;", Conn_Client, adOpenStatic, adLockOptimistic
End Sub

Public Sub CloseDB()
'Kill RecordSets

'Kill Logs
RS_LOGS.Close
Set RS_LOGS = Nothing

'Kill Characters
RS_SaveCharNEW.Close
Set RS_SaveCharNEW = Nothing
Set RS_SaveCharUPDATE = Nothing

'Kill Accounts
RS_SavePlayerNEW.Close
Set RS_SavePlayerNEW = Nothing
Set RS_SavePlayerUPDATE = Nothing

'Kill Connections
Conn_Server.Close
Set Conn_Server = Nothing
Conn_Client.Close
Set Conn_Client = Nothing
End Sub