No me esta cargando el dato Base datos

[a83]

Este es el modulo de conexion
pregunta:
Como puedo saber si no se conecto a la base?

Código PHP:

  Dim cn          As ADODB.Connection 
Dim Rs          As ADODB.Recordset 
Dim m_stream    As ADODB.Stream 
 
Public Sub dbInit() 
Crea la conexion a la base  de  datos 
Set cn = New ADODB.Connection 
On Error GoTo ErrHand 
 
cn.Open "Provider=sqloledb;" & _ 
    "Data Source=CHLT3R2Q#WEB012;" & _ 
    "Initial Catalog=AIU8_Global;" & _ 
    "User Id=usr_auditor;Password=usr_auditor" 
     
cn.Close 
 
 
End Sub  
   

este es elmodulo que me busca la info para mostar en el combobox

Código PHP:

  Sub gLlenarComboParametro(cmb As ComboBox, Optional blnSinInfo As Boolean = False) 
Llena el combo con los datos de la tabla Parametros 
Dim strSql As String 
Dim adoRs As New ADODB.Recordset 
    strSql = "Select Linea from produ_comercial " 
    cmb.Clear 
    If blnSinInfo Then 
        cmb.AddItem gcstrSinInfo 
        cmb.ItemData(0) = 0 
    End If 
    If dbCreaConsultaRapida(strSql, adoRs) Then 
        Do While Not adoRs.EOF 
            cmb.AddItem adoRs![PA_Descrip] 
            cmb.ItemData(cmb.NewIndex) = adoRs![PA_CodParam] 
            adoRs.MoveNext 
        Loop 
        adoRs.Close 
        Set adoRs = Nothing 
    End If 
End Sub  
   

y de esta manera lo recojo el darto en el from1

Código PHP:

  Private Sub Form_Load() 
 
    Call gLlenarComboParametro(linegocio) 
 
End Sub  
   

esta es mi si me pueden dar una mano con esto

[rubencho5413]

Option Explicit

' variable Connection y Recordset
Dim cn As ADODB.Connection
Dim Rs As ADODB.Recordset

Private Sub Form_Load()


' Crea y abre la conexión
Set cn = New ADODB.Connection

With cn
.CursorLocation = adUseClient
' cadena de conexión
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\db1.mdb" & _
";Persist Security Info=False"
End With
' Crea y abre el recordset
Set Rs = New ADODB.Recordset
Rs.CursorLocation = adUseClient

cn.Open
End sub


Espero le sirva

[lokoman]

Iniciado por a83

cn.Open "Provider=sqloledb;" & _
"Data Source=CHLT3R2Q#WEB012;" & _
"Initial Catalog=AIU8_Global;" & _
"User Id=usr_auditor;Password=usr_auditor"

cn.Close


End Sub[/PHP]

Creo que tu error esta en que CIERRAS la conexion justamente despues de abrirla, con el codigo CN.CLOSE, quita esa linea y prueba a ver...