ola gracias a todos los post, bueno.al base de datos esta en la misma carpeta asi es que la ubicacion esta bien, ya lo revise
este es el codigo del boton imprimir
Código PHP:
Private Sub Imprime_Click()
On Error Resume Next
Dim BDCALIFICA As Database
Dim RSCalifica As Recordset
Set BDCALIFICA = OpenDatabase("C:\califica\califica.mdb")
Set RSCalifica = BDCALIFICA.OpenRecordset("califica")
SQL = "DELETE * from califica"
BDCALIFICA.Execute SQL
ElFin = 0
If Grilla_Apr.Rows < grilla_Rep.Rows Then
ElFin = grilla_Rep.Rows - 1
Else
ElFin = Grilla_Apr.Rows - 1
End If
'MsgBox (grilla_Rep.Rows)
'MsgBox (Grilla_Apr.Rows)
For I = 1 To ElFin
RSCalifica.AddNew
If I < Grilla_Apr.Rows Then
MsgBox (I)
Grilla_Apr.Row = I
Grilla_Apr.Col = 1
RSCalifica.Fields("Puntaje_a") = Trim(Grilla_Apr.Text)
Grilla_Apr.Col = 2
RSCalifica.Fields("nota_a") = Trim(Grilla_Apr.Text)
End If
If I < grilla_Rep.Rows Then
grilla_Rep.Row = I
grilla_Rep.Col = 1
RSCalifica.Fields("Puntaje_r") = Trim(grilla_Rep.Text)
grilla_Rep.Col = 2
RSCalifica.Fields("nota_r") = Trim(grilla_Rep.Text)
End If
RSCalifica.Update
Next
RSCalifica.Close
BDCALIFICA.Close
RepCalifica.ReportFileName = "c:\califica\califica.rpt"
RepCalifica.Action = 1
End Sub
hice algunos arreglos y tampoco imprime pero si aparece este mensaje que dice q no se puede leer el reporte en cristal repor en visual basic 4, siendo q este programa est diseñado en este lenguaje , la idea es imprimir en pantalla , al hacer clik en el boton imprimir me mand los datos de unas notas de unos alumnos por pantalla , lueg ayi yo puedo imprimirlo si quiero, ojala me entiendan
gracias y ojala me puedan ayudar