vbcupu

Private Sub cmdBatal_Click()
    Call BersihForm
End Sub

Private Sub cmdHapus_Click()
    strSQL = "Delete from Mahasiswa where NIM = '" & txtNIM.Text & "'"
    Call execCmd(dbCmd, strSQL)
    Call BersihForm
    FillGrid
End Sub

vbcupu

Public dbconn As ADODB.Connection
Public rs As ADODB.Recordset
Public dbCmd As ADODB.Command
Public strSQL As String</pre>

vbcupu

'Fungsi untuk membuka koneksi
Public Function OpenConnection()
    Set dbconn = New ADODB.Connection
    dbconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\mahasiswa.mdb;Persist Security Info=False"
    dbconn.CursorLocation = adUseClient
    dbconn.Open
End Function
'Fungsi untuk membuat query yang menghasilkan recordset
Public Function bukaRs(Query As String, Record As Recordset)
    Set Record = New ADODB.Recordset

vbcupu

'Module ModVar

Public dbConn As ADODB.Connection
Public rs As ADODB.Recordset
Public dbCmd As ADODB.Command
Public strSQL As String

vbcupu

'Module modUtil

Public Function OpenConnection()
   Set dbconn = New ADODB.Connection
   dbconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Project\latihan1\mahasiswa.mdb;Persist Security Info=False"

dbconn.CursorLocation = adUseClient
   dbconn.Open
End Function

vbcupu

    Public dbconn As ADODB.Connection
    Public rs As ADODB.Recordset
    Public dbCmd As ADODB.Command
    Public strSQL As String

vbcupu

'Fungsi untuk membuka koneksi
   Public Function OpenConnection()
     Set dbconn = New ADODB.Connection
     dbconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\mahasiswa.mdb;Persist Security Info=False"
    dbconn.CursorLocation = adUseClient
    dbconn.Open
 End Function
'Fungsi untuk membuat query yang menghasilkan recordset
Public Function bukaRs(Query As String, Record As Recordset)
    Set Record = New ADODB.Recordset

vbcupu

Private Sub cmdBatal_Click()
    Call BersihForm
End Sub

Private Sub cmdHapus_Click()
    strSQL = "Delete from Mahasiswa where NIM = '" & txtNIM.Text & "'"
    Call execCmd(dbCmd, strSQL)
    Call BersihForm
    FillGrid
End Sub

vbcupu

Private Sub cmdCoba_Click()

 Dim strTest    As String

 strTest = InputBox("Please enter a string:")
 Print "Contoh Len:"; Tab(25); Len(strTest)
 Print "Contoh Mid$:"; Tab(25); Mid$(strTest, 3, 4)
 Print "Contoh Left$:"; Tab(25); Left$(strTest, 3)
 Print "Contoh Right$:"; Tab(25); Right$(strTest, 2)
 Print "Contoh UCase$:"; Tab(25); UCase$(strTest)

vbcupu

Dim dbconn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strSQL As String
Dim ConsTring As String
Private Sub cmdKoneksi_Click()
      Call OpenConnection
End Sub
Private Sub OpenConnection()
On Error GoTo err:
    Set dbconn = New ADODB.Connection