Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim StrConnect As String
Dim StrSQL As String
Sub Konek()
StrConnect = "Provider=Microsoft.Jet.OleDB.4.0;Data Source=" + App.Path +
"\penjualan.mdb"
If Conn.State = adStateOpen Then
Conn.Close
Set Conn = New ADODB.Connection
Conn.Open StrConnect
Else
Conn.Open StrConnect
End If
End Sub
Private Sub Form_Load()
Dim i As Integer
Call Konek
StrSQL = "select No_faktur from item"
Set Rs = Conn.execute(StrSQL)
i = Rs("No_Faktur")
Txtfaktur = i + 1
End Sub
"Kenapa pasti overflow kalau datanya lebih dari 9999?"
tolong jelasin + kasih solusinya....
trims...
