Estoy programando un formulario en Excel / VBA que obtiene datos de una tabla en SQL SERVER, dicho formulario tiene varios Comboboxes que obtienen sus datos de diversas tablas, el problema es que en particular 2 de ellos me muestran el símbolo ¶ (salto de párrafo) en cada fila del combobox pero no encuentro la razón (si el error está en el código o en la tabla de SQL SERVER); el código es el mismo para todos los comboboxes, pero sólo dos tienen este problema. ¿qué puedo hacer para que lo deje de mostrar? Dejo un ejemplo del código, el primero es el que muestra el símbolo en cuestión y el de abajo es de otro combobox que no tiene ese problema:
Antes, vale decir que cuando ejecuto el form principal se crea la conexión:
Sub SQLconnection()
Dim ESTADO
provStr = "Provider=SQLOLEDB.1;Password=***;Persist Security Info=True;" & _
"User ID=sa;Initial Catalog=pruebaEDGE;Data Source=SERVER\SQLEXPRESS"
Set cn = CreateObject("ADODB.connection")
cn.connectionstring = provStr
cn.Open
If cn.State = 1 Then
ESTADO = MsgBox("Conectado", vbOKOnly, "Estado de Conexión con el Servidor")
Else: ESTADO = MsgBox("Hubo un error", vbOKOnly, "Estado de Conexión con el Servidor")
End If
End Sub
su código:
Sub Llenarprof(ByVal cb As ComboBox)
PROF = "SELECT*FROM [tabla]"
Set rs = CreateObject("ADODB.recordset")
rs.Open PROF, cn
If Not rs.EOF Then
i = 0
Do Until rs.EOF
cb.AddItem rs.Fields("nombre"), i
i = i + 1
rs.movenext
Loop
End If
rs.Close
Set rs = Nothing
End Sub
y este es el caso donde no muestra el símbolo
y su código:
Sub LlenarActMerc(ByVal cb As ComboBox)
ACTIVIDAD = "SELECT*FROM [tabla]"
Set rs = CreateObject("ADODB.recordset")
rs.Open ACTIVIDAD, cn
If Not rs.EOF Then
i = 0
Do Until rs.EOF
cb.AddItem rs.Fields("nombre"), i
i = i + 1
rs.movenext
Loop
End If
rs.Close
Set rs = Nothing
End Sub
Tanto los campos "ocupación" como "giro mercantil" son nvarchar, el primero (50) y el segundo (255). No estoy seguro de cómo se alimentaron estas, pero otro de los comboboxes con el mismo problema se alimenta de una tabla que sí creé a mano.