Server has not yet been opened
Publicado por Profy (1 intervención) el 15/02/2001 16:42:31
hola, alguien podria decirme a que es debido este error. Cuando lo compilo en la maquina donde esta instalado el visual y el crystal no tengo ningun problema pero cuando lo instalo en otra estacion cliente me aparece este error. El crytal es la version 8 y el visual la version 6, aqui esta el codigo haber si hay algo que no hago bien. Por cierto todo se genera en tiempo de ejecucion.
Dim Report As New Informes_presupuestos
Dim Campo0, Campo1, Campo2, Campo3, Campo4, Campo5, Campo11, Campo12, Campo13, Campo14, Campo15, Campo00 As CRAXDRT.DatabaseFieldDefinition
Dim tabla1, tabla2 As DatabaseTable
Dim sec_detalles As CRAXDRT.Section
Dim lineas As CRAXDRT.LineObject
Dim fld As CRAXDRT.FieldObject
Dim texto As CRAXDRT.TextObject
Private Sub Form_Load()
Dim cnn1 As New ADODB.Connection
' Open the data connection
Set cnn1 = New ADODB.Connection
cnn1.CommandTimeout = 10
cnn1.Provider = "SQLOLEDB"
cnn1.Properties("Data Source") = "sqlserver"
cnn1.Properties("Initial Catalog") = "ataller"
cnn1.Properties("User ID") = "sa"
cnn1.Properties("Password") = ""
cnn1.Open
Set datcmd1 = New ADODB.Command
Set datcmd1.ActiveConnection = cnn1
datcmd1.CommandText = "A" & empresa_global & "_presup" & npresup & "_0"
datcmd1.CommandType = adCmdText
Report.Database.AddADOCommand cnn1, datcmd1
Set datcmd2 = New ADODB.Command
Set datcmd2.ActiveConnection = cnn1
datcmd2.CommandText = "A" & empresa_global & "_presup" & npresup & "_1"
datcmd2.CommandType = adCmdText
Report
Dim Report As New Informes_presupuestos
Dim Campo0, Campo1, Campo2, Campo3, Campo4, Campo5, Campo11, Campo12, Campo13, Campo14, Campo15, Campo00 As CRAXDRT.DatabaseFieldDefinition
Dim tabla1, tabla2 As DatabaseTable
Dim sec_detalles As CRAXDRT.Section
Dim lineas As CRAXDRT.LineObject
Dim fld As CRAXDRT.FieldObject
Dim texto As CRAXDRT.TextObject
Private Sub Form_Load()
Dim cnn1 As New ADODB.Connection
' Open the data connection
Set cnn1 = New ADODB.Connection
cnn1.CommandTimeout = 10
cnn1.Provider = "SQLOLEDB"
cnn1.Properties("Data Source") = "sqlserver"
cnn1.Properties("Initial Catalog") = "ataller"
cnn1.Properties("User ID") = "sa"
cnn1.Properties("Password") = ""
cnn1.Open
Set datcmd1 = New ADODB.Command
Set datcmd1.ActiveConnection = cnn1
datcmd1.CommandText = "A" & empresa_global & "_presup" & npresup & "_0"
datcmd1.CommandType = adCmdText
Report.Database.AddADOCommand cnn1, datcmd1
Set datcmd2 = New ADODB.Command
Set datcmd2.ActiveConnection = cnn1
datcmd2.CommandText = "A" & empresa_global & "_presup" & npresup & "_1"
datcmd2.CommandType = adCmdText
Report
Valora esta pregunta


0