DH,
Selamat malam semua
para master saya ada masalah
1. saya membuat aplikasi vb 6.0 dengan crystall report 8.5
karena master 8.5 saya rusak saya ganti dengan crystall report 11 tetapi waktu
aku run muncul
pesan error run-time '20532' can't not find database dll
2. saya pernah buat aplikasi dulu bisa dijalankan tetapi sekarang muncul pesan
error
procedure declaration does not match description of event or procedure having
the same name
untuk sub perintah yang muncul ketika debug
Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal
pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As
ADODB.Recordset)
tampil
End Sub
'=====================
Sub tampil()
If Adodc1.Tag = "" Then kosong
With Adodc1.Recordset
If .EOF Or .BOF Then Exit Sub
If Adodc1.Tag = "simpan" Or Adodc1.Tag = "edit" Then Exit Sub
If IsNull(.Fields(0)) = False Then Text1(0) = Adodc1.Recordset.Fields(0)
If IsNull(.Fields(1)) = False Then Text1(1) = Adodc1.Recordset.Fields(1)
If IsNull(.Fields(2)) = False Then Text1(2) = Adodc1.Recordset.Fields(2)
If IsNull(.Fields(3)) = False Then Text1(3) = Adodc1.Recordset.Fields(3)
If IsNull(.Fields(4)) = False Then Text1(4) = Adodc1.Recordset.Fields(4)
If IsNull(.Fields(5)) = False Then Text1(5) = Adodc1.Recordset.Fields(5)
If IsNull(.Fields(6)) = False Then Text1(6) = Adodc1.Recordset.Fields(6)
If IsNull(.Fields(7)) = False Then Text1(7) = Adodc1.Recordset.Fields(7)
If IsNull(.Fields(8)) = False Then Text1(8) = Adodc1.Recordset.Fields(8)
End With
End Sub
ini fungsi rowcolcange
mohon bantuannya
thanks
[Non-text portions of this message have been removed]
