Estoy haciendo una Aplicación en VB6 que conecta con SQL mediante ADO.
Cuando conecto el TrueDBGrid con el Recordset me da el siguiente error.
Error en el método 'DataSource' del objeto 'ITrueDBGridCtrl'
Err.number=-2147417848
el codigo es el siguiente:
Dim db As Database
Set db = New ADODB.Connection
db.Provider = "SQLOLEDB"
db.ConnectionString = " Provider=SQLOLEDB.1;" & _
"TRUSTED_CONNECTION=YES;" & _
"Initial Catalog=" & RUTABD & ";" & _
"Data Source=" & NombreServidor & ""
db.CommandTimeout = 0
db.Open
dim RsDatos as ADODB.Recordset
Set RsDatos = New ADODB.Recordset
RsDatos.CursorLocation = adUseClient
RsDatos.LockType = adLockOptimistic
RsDatos.Open "Select * from TipoCliente where empresa=" & CODIGOEMPRESA & " order by Codigo", db
Set tdbg1.DataSource = RsDatos
Pero no siempre me da el error.
Cuando le doy a aceptar y vuelvo a ejecutar la consulta me da el siguiente error:
La instrucción en "0x132dc57a" hace referencia a la memoria en "0x134eaf70". La memoria no se puede "read"
Haga clic en Aceptar para finalizar este programa
y se me sale del programa.
Cuando acceso al Visor de sucesos me da el siguiente error
Aplicación con errores: VB6.EXE, versión: 6.0.89.88, módulo con error: todg7.ocx, versión 7.0.0.254, dirección de error 0x00069a34
He probado a instalar una versíon mas nueva de TrueDBGrid7 (7.0.0.303)
y me pasa lo mismo
Agradecería alguna ayuda.
Gracias
