Membuat Fungsi dalam VB 6.0

Berikut adalah contoh kode pembuatan fungsi pada VB 6.0

Public Function DeleteDataInDatabaseTables(Table As String, where As String) As Integer
On Error GoTo errDeleteDataInDatabaseTables
    sql = "delete from " & Table & " " & where
    cn.Execute (sql)
    DeleteDataInDatabaseTables = 1
Exit Function
errDeleteDataInDatabaseTables:
    DeleteDataInDatabaseTables = 0
End Function

Posted in: VB