macro en Visio

[Lego]

Hola Buenos dias, tengo una duda estoy empezando en vb y estoy hacienda una macro pero al crear mi cadena de coneccion como en c# me da error queria saber como conectarme a sql desde vb especificamente una macro

Gracias

[KenMasters]

Antes que nada seria bueno que muestres tu codigo para poderte ayudar en la parte donde este tu error, pero de todas formas te mostrare como es que yo uso una conección por medio de ADO.

1- Agregar la referencia de "Miscrosoft ActiveX Data Objects 6.0 Library"
2. Luego en declaraciones colocar lo siguiente

Código vb:

Dim cn as Connection 
Dim rs As Recordset
 

En el load form colocas:

Código vb:

Set cn = New Connection
cn.ConnectionString = "DRIVER={tu driver SQL}; SERVER=localhost;DATABASE=tu_DB;USER=usuario;PASSWORD=tu_contraseñaDB;port:Puerto;OPTION=3"
cn.CursorLocation = adUseClient
cn.Open
 

Si tienes dudas sobre la sintaxis de coneccion puedes visitar http://www.connectionstrings.com/ para guiarde según el tipo de conector que uses y Server DB

Luego en el evento command o el que ejecute la consulta asi:

Código vb:

Set rs = New Recordset
rs.Open "AQUI TU CONSULTA SQL", cn, adOpenDynamic, adLockOptimistic
text1.text = rs.fields(1)
.
.
.
 

Para el caso si fuera un solo resultado, pero si fueran más puedes usar un loop