Bueno, voy a ponerme seria a ver si alguien puede ayudarme... (estoy desesperada ya). Tengo dos tablas una es Clientes (bueno, esto es una vista) y la otra es Ofertas, las relaciono de esta manera: Clientes.codigo = Ofertas.CodCliente. En el SQL he comprobado los permisos de ambas tablas para un usuario llamado Leiatest y en ambas tengo permisos para hacer SELECT, INSERT, UPDATE y DELETE. Por otra parte tengo un informe hecho en crystal que se llama report1.rpt, empecé con una de las tablas, la de clientes concretamente, a probar y conseguí visualizar los datos, hasta aquí todo ok pero al incluir la segunda tabla en el report me da el siguiente error:
Qué es lo que tengo mal??? yo creo que es de la tabla pero cómo puedo saberlo??? si se supone que tengo todos los permisos necesarios??? de hecho antes de visualizar el informo inserto en la tabla de ofertas todos los datos que necesito y desde crystal report visualizo bien el informe...
Este es el código que tengo:
Private Sub Form_Resize()
CRViewer.Top = 0
CRViewer.Left = 0
CRViewer.Height = ScaleHeight
CRViewer.Width = ScaleWidth
End Sub
Private Sub Form_Load()
Dim crystal As New CRAXDRT.Application
Dim Report As New CRAXDRT.Report
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
With conn
' Proveedor de datos Microsoft OLE DB para SQL Server
.Provider = "SQLOLEDB"
.ConnectionString = "server=SERVIDOR5;database=LEIATEST;uid=leiatest;p wd=sa"
End With
conn.Open
'ejecutar = "SELECT * FROM clientes, ofertas"
ejecutar = "SELECT Ofertas.*, clientes.* FROM Ofertas INNER JOIN clientes ON Ofertas.codcliente = clientes.Codigo WHERE Ofertas.id =" & Form1.num_O.Text
MsgBox ejecutar
Set rs = conn.Execute(ejecutar)
'rs.Open "SELECT * FROM Clientes, Ofertas ", conn, adOpenStatic, adLockReadOnly
CRViewer.DisplayBorder = False 'MAKES REPORT FILL ENTIRE FORM
CRViewer.DisplayTabs = False 'THIS REPORT DOES NOT DRILL DOWN, NOT NEEDED
CRViewer.EnableDrillDown = False 'REPORT DOES NOT SUPPORT DRILL-DOWN
CRViewer.EnableRefreshButton = False 'ADO RECORDSET WILL NOT CHANGE, NOT NEEDED
'Set crystal = New CRAXDRT.Application
Set Report = crystal.OpenReport(App.Path & "\report1.rpt")
Report.DiscardSavedData
Report.Database.SetDataSource rs
CRViewer.ReportSource = Report
CRViewer.ViewReport
Do While CRViewer.IsBusy
DoEvents
Loop
CRViewer.Zoom 94
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
Set crystal = Nothing
Set Report = Nothing
End Sub
Espero que alguien pueda ayudarme Snif, snif...