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
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
Código PHP:
Private Sub Form_Load()
Call gLlenarComboParametro(linegocio)
End Sub