Problemas con Crystal Report

nana1701
06 de Octubre del 2005
hola, tengo un problema estoy sacando los reportes por crystal report 6.0, y al momento de llamarlo me sale un error que dice, (NO SE PUEDE ABRIR LA BASE DE DATOS) la base de datos la tengo en ACCESPOR FAVOR AYUDENME
GRACIAS

pablinweb
06 de Octubre del 2005
tienes algun problema en la conexión del reporte, pasa el codigo de la conexion para poder ayudarte mejor

nana1701
06 de Octubre del 2005
hola de verdad te agradeceria en lo q me pudieras ayudar GRACIAS
Private Sub Command1_Click()
Do While Not Data1.Recordset.EOF
If Format(Data1.Recordset.Fields("Fecha"), "dd/mm/yy") >= CDate(DTPicker1) And Format(Data1.Recordset.Fields("Fecha"), "dd/mm/yy") <= CDate(DTPicker2) And Data1.Recordset!cipaci = Text1.Text Then
Data1.Recordset.AddNew
Data1.Recordset!campo1 = Data1.Recordset!unidad
Data1.Recordset!campo2 = Data1.Recordset!fecha
Data1.Recordset!campo3 = Data1.Recordset!servi
Data1.Recordset!campo4 = Data1.Recordset!salida
Data1.Recordset!campo5 = Data1.Recordset!llegada
Data1.Recordset!campo6 = Data1.Recordset!culminacion
Data1.Recordset!campo7 = Data1.Recordset!dirprocedi
Data1.Recordset!campo8 = Data1.Recordset!sitraslado
Data1.Recordset!campo9 = Data1.Recordset!nompacient
Data1.Recordset!campo10 = Data1.Recordset!cipaci
Data1.Recordset!campo11 = Data1.Recordset!dirpacient
Data1.Recordset!campo12 = Data1.Recordset!tele
Data1.Recordset!campo13 = Data1.Recordset!edad
Data1.Recordset!campo14 = Data1.Recordset!motivoconsu
Data1.Recordset!campo15 = Data1.Recordset!datospositi
Data1.Recordset!campo16 = Data1.Recordset!pulso
Data1.Recordset!campo17 = Data1.Recordset!respi
Data1.Recordset!campo18 = Data1.Recordset!tenart
Data1.Recordset!campo19 = Data1.Recordset!ro
Data1.Recordset!campo20 = Data1.Recordset!rv
Data1.Recordset!campo21 = Data1.Recordset!rm
Data1.Recordset!campo22 = Data1.Recordset!total
Data1.Recordset!campo23 = Data1.Recordset!obs
Data1.Recordset!campo24 = Data1.Recordset!condu
Data1.Recordset!campo25 = Data1.Recordset!soco
Data1.Recordset!campo26 = Data1.Recordset!volun
Data1.Recordset!campo27 = Data1.Recordset!impdiag
Data1.Recordset!campo28 = Data1.Recordset!medrecpaci
Data1.Recordset!campo29 = Data1.Recordset!autorizado
Data1.Recordset!campo30 = Data1.Recordset!meduni
Data1.Recordset!campo31 = Data1.Recordset!observaciones
Data1.Recordset!campo32 = Data1.Recordset!yo
Data1.Recordset!campo33 = Data1.Recordset!cedu
Data1.Recordset!campo34 = Data1.Recordset!de
Data1.Recordset!campo35 = Data1.Recordset!nacio
Data1.Recordset!campo36 = Data1.Recordset!residen
Data1.Recordset!campo37 = Data1.Recordset!condicion
Data1.Recordset!campo38 = Data1.Recordset!paciente
Data1.Recordset!campo39 = Data1.Recordset!familipaci
Data1.Recordset!campo40 = Data1.Recordset!exonero
Data1.Recordset!campo41 = Data1.Recordset!firma
Data1.Recordset!campo42 = Data1.Recordset!cifamili
Data1.Recordset!campo43 = Data1.Recordset!test1
Data1.Recordset!campo44 = Data1.Recordset!cedutesti1
Data1.Recordset!campo45 = Data1.Recordset!testi2
Data1.Recordset!campo46 = Data1.Recordset!cedutesti2
Data1.Recordset!campo47 = Data1.Recordset!jefecomi
Data1.Recordset!campo48 = Data1.Recordset!fechayhora
Data1.Recordset.Update
End If
Data1.Recordset.MoveNext
Loop
CrystalReport1.Action = 1
End Sub