hola tengo un formulario en excel vba que se completa con datos de una tabla que esta en un servidor sql. en el formulario tengo dos combobox los cuales se deberian completar con datos de una tabla del servidor. necesito que al llenar el primer combobox el segundo se active y se complete con datos de otras de las columnas de las tablas, y a su vez este haga que se completen una serie de textbox del mismo formulario . no se como hacerlo.
Asi hago la conexion al servidor desde el combobox a una secuencia en el modulo
Private Sub ComboBox1_Change()
Dim SQL As String
Dim Connected As Boolean
Dim Rs As ADODB.Recordset
SQL = "select * from clientes where cliente='" & (ComboBox1) & "' order by cliente"
hola tengo un formulario en excel vba que se completa con datos de una tabla que esta en un servidor sql. en el formulario tengo dos combobox los cuales se deberian completar con datos de una tabla del servidor. necesito que al llenar el primer combobox el segundo se active y se complete con datos de otras de las columnas de las tablas, y a su vez este haga que se completen una serie de textbox del mismo formulario . no se como hacerlo.
Asi hago la conexion al servidor desde el combobox a una secuencia en el modulo
Private Sub ComboBox1_Change()
Dim SQL As String
Dim Connected As Boolean
Dim Rs As ADODB.Recordset
SQL = "select * from clientes where cliente='" & (ComboBox1) & "' order by cliente"
Connected = Connect("10.0.0.145", "usuario1", "123456", "administracion")
If Connected Then
Call Query5(SQL)
Call Disconnect
Else
MsgBox "Could Not Connect!"
esta secuencia esta en el modulo
Function Connect(Server As String, User As String, Pass As String, Database As String) As Boolean
Set CN = New ADODB.Connection
On Error Resume Next
With CN
.ConnectionString = "Provider=SQLOLEDB.1;" & _
"Password=" & Pass & ";" & _
"Persist Security Info=True;" & _
"User ID=" & User & ";" & _
"Initial Catalog=" & Database & ";" & _
"Data Source=" & Server
.Open
End With
If CN.State = 0 Then
Connect = False
Else
Connect = True
End If
End Function
End If
End Sub