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 <*> 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/
