08/01/2007, 01:51
|
 | | | Fecha de Ingreso: abril-2006 Ubicación: Zaragoza
Mensajes: 236
Antigüedad: 18 años, 1 mes Puntos: 3 | |
| Re: Error en el método 'DataSource' del objeto 'ITrueDBGridCtrl'
No entiendo lo que me quieres decir pero yo tengo en un Modulo de arranque
del programa:
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
(Solo lo ejecuto al cargar la aplicación)
En la aplicación tengo varios formularios.Al cargar uno de ellos tengo:
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
Gracias |