Terima kasih mas pras Atas tanggapannya tapi masih belum bisa waktu di debug nilai false tapi anehnya kalau untuk input/transaksi /edit di form dan lain -lain bisa , FYI untuk koneksinya aku panggil lewat modul.
kalau dulu waktu Crystal Report 6 untuk connect server aku pakai : crReport.LogonServer "Pdssql.dll",Sserver,Sdata,Suser,Spwd itu berhasil dengan succes mohon pencerahannya atau mungkin sedikit sample code Terima kasih ----- Original Message ----- From: "Pras" <[EMAIL PROTECTED]> To: <[email protected]> Sent: Wednesday, May 04, 2005 11:59 AM Subject: [Programmer-VB] Re: Tanya VB CRYSTAL REPORT 8.5 > Saya juga pernah ngalamin neh, coba di debug dengan cara > tekan ctlg G dan ketikan perintah > ? StrCnn = "Provider=SQLOLEDB.1;Password=" & > Trim$(FRM_LOGIN.TxtPass.Text) & > ";Persist Security Info=True;User ID=" & > Trim$(FRM_LOGIN.TxtUser.Text) & > ";Initial Catalog=" & Trim$(FRM_LOGIN.cmbData.Text) & ";Data > Source=" & > Trim$(FRM_LOGIN.txtServer.Text) > > perhatikan nilai yang keluar dari hasil debug, mungkin ada parameter > yang tidak nongol, kalau memang begitu, silahkan lengkapi parameternya > > ------------- > --- P1245 --- > -N37571N6312- > ------------- > > > --- In [email protected], "AgusYon" <[EMAIL PROTECTED]> wrote: > > PLEASE HELP ME. > > ----- Original Message ----- > > From: "AgusYon" <[EMAIL PROTECTED]> > > To: <[email protected]> > > Sent: Monday, May 02, 2005 10:03 AM > > Subject: [Programmer-VB] Tanya VB CRYSTAL REPORT 8.5 > > > > > > > Dear all, > > > > > > dh, > > > Saya ada masalah untuk cetak dengan Crystal report 8.5 dan > database SQL > > > Server 2000 > > > [ error server has not yet been opened ] saya menggunakan OS > Windows 98 > > SE > > > Apanya yang salah .... ? > > > coding saya > > > > > > Dim rsTran As New ADODB.Recordset > > > Dim rptApp As New CRAXDRT.Application > > > Dim cRpt As New CRAXDRT.Report > > > Dim Rscmd As ADODB.Command > > > Dim Adocnn as new ADODB.Connection > > > Dim StrCnn as String > > > Private Sub cmdCetak_Click() > > > > > > StrCnn = "Provider=SQLOLEDB.1;Password=" & > Trim$(FRM_LOGIN.TxtPass.Text) & > > > ";Persist Security Info=True;User ID=" & > Trim$(FRM_LOGIN.TxtUser.Text) > > & > > > ";Initial Catalog=" & Trim$(FRM_LOGIN.cmbData.Text) & ";Data > Source=" & > > > Trim$(FRM_LOGIN.txtServer.Text) > > > With aDocnn > > > .ConnectionString = StrCnn > > > .ConnectionTimeout = 2000 > > > .CursorLocation = adUseClient > > > .Open > > > End With > > > Set Rscmd = New ADODB.Command > > > Set Rscmd.ActiveConnection = aDocnn > > > Rscmd.CommandText = "tbl_tmp" > > > Rscmd.CommandType = adCmdTable > > > Set cRpt = rptApp.OpenReport("c:\rpt.rpt", 1) > > > cRpt.Database.AddADOCommand aDocnn, Rscmd > > > crv.ReportSource = cRpt > > > cRpt.DiscardSavedData > > > cRpt.RecordSelectionFormula > = "{tbl_tmp.docno} = '" > > & > > > frm_Csewa!Mdocno & "'" > > > crv.ViewReport > > > End Sub > > > > > > Mohon Pencerahan dari Rekan-Rekan , Sebelumnnya terima kasih > bannyak . > > > > > > > > > Salam > > > > > > > > > > > > Untuk keluar dari millis ini, kirim email kosong ke: > > > [EMAIL PROTECTED] > > > > > > > > > Yahoo! Groups Links > > > > > > > > > > > > > > > > > > > > Untuk keluar dari millis ini, kirim email kosong ke: > [EMAIL PROTECTED] > > > Yahoo! Groups Links > > > > > Untuk keluar dari millis ini, kirim email kosong ke: [EMAIL PROTECTED] Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/programmer-vb/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
