Remove ClassDatabase, Replace with Database.MSSQL Module
This commit is contained in:
@@ -100,7 +100,7 @@ Public Class frmEmailIndexing
|
||||
Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
|
||||
Try
|
||||
Dim oSQL = $"DELETE FROM TBGI_OBJECTTYPE_EMAIL_INDEX WHERE OBJECTTYPE = '{OBJECTTYPETextBox.Text}'"
|
||||
ClassDatabase.Execute_non_Query(oSQL)
|
||||
DATABASE_ECM.ExecuteNonQuery(oSQL)
|
||||
TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Fill(MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX, OBJECTTYPETextBox.Text)
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
|
||||
Reference in New Issue
Block a user