Dear All,
I'm executing below simple SQL to delete the data from Remote Database but somehow it's not deleting the data.
Code for Remote database
I'm executing below simple SQL to delete the data from Remote Database but somehow it's not deleting the data.
Code:
strDeleteSQL = "DELETE FROM " & sTableName
gsCnPDatabase.Execute (strDeleteSQL)
Code for Remote database
Code:
Option Compare Database
Global gsCnPDatabase As DAO.Database 'CnP Secured MS Access Database
Global gsCnPDatabaseOpened As Boolean 'Assign Value TRUE once MS Access DB connection is opened
'Function is used to connect Secured ACCESS Database and extract CnP database information and assign True value to global variable
Public Function ConnectCnpDatabase() As Boolean
Dim sCnPDatabaseName As String
Dim sDatabasePassword As String
On Error GoTo ErrConnectDB
ConnectCnpDatabase = False
sCnPDatabaseName = ExtractDatabaseDetails.GetDatabasePath(gsCnPDatabaseID) & "\" & ExtractDatabaseDetails.GetDatabaseName(gsCnPDatabaseID)
sCnPDatabasePassword = GetDatabasePassword(gsCnPDatabaseID)
' Create Microsoft Jet Workspace object.
Set gCurWS = DBEngine.Workspaces(0)
Set gsCnPDatabase = gCurWS.OpenDatabase(sCnPDatabaseName, False, False, "MS Access;PWD=" & sCnPDatabasePassword)
ConnectCnpDatabase = True
gsCnPDatabaseOpened = True 'Assign TRUE once MS Access Secured Database is Initialised
Exit Function
ErrConnectDB:
gsDBErr = Err.Description
End Function
'Disconnect Secured Access Database
Public Sub DisconnectCnPDatabase()
If gsCnPDatabaseOpened = True Then 'If MS Access Secured Database is opened
gsCnPDatabase.Close
gsCnPDatabaseOpened = False
End If
Set gsCnPDatabase = Nothing
End Sub[\code]