Hola!
Con este codigo puedes crear conexion:
Código vb:
Ver originalPublic myConexion As ADODB.Connection
Function OLEDBConnectionStringCreate() As String
Dim oDataLink As Object 'MSDASC.DataLinks
Dim oCon As Object 'ADODB.Connection
On Error Resume Next
Set oDataLink = CreateObject("DataLinks")
If oDataLink Is Nothing = False Then
Set oCon = CreateObject("ADODB.Connection")
Call oDataLink.PromptEdit(oCon)
OLEDBConnectionStringCreate = oCon.ConnectionString
Else
Debug.Print Err.Description
Debug.Assert False
End If
Set oCon = Nothing
Set oDataLink = Nothing
End Function
Private Sub Form_Load()
Set myConexion = New ADODB.Connection
On Error GoTo Errores
myConexion.ConnectionString = OLEDBConnectionStringCreate
myConexion.Open
MsgBox "Conexion ok!!"
Exit Sub
Errores:
MsgBox "Conexion no ok!!"
End Sub
Se presentará un cuadro de conexion:
1-Seleccionas la pestaña "Proveedor (Provider)", seleccionas "Microsoft OLE DB Provider for SQL Server"
2-Seleccionas la pestaña "Conexion (Connection)", completa los campos con el nombre del servidor/instancia, usuario, pass y base de datos.
3-Presiona el boton "Prueba de conexion (Test Connection)" para validar que la conexion esté correcta
4-Presiona el boton "OK"
Para las consultas, debes usar Recordsets, ejemplo:
Código vb:
Ver originalDim rstDatos as ADODB.Recordset
Set rstDatos = New ADODB.Recordset
rstDatos.Source="SELECT * FROM TABLA WHERE CAMPO1=123 " 'debes usar una instruccion SQL
rstDatos.Open , myConexion 'aqui se abre la consulta con la conexion establecida
if rstDatos.EOF=False then
'encontramos datos
'ejemplo para asignar los valores del CAMPO1 a un textbox
TextBox.Text=rstDatos!CAMPO1
Else
'no encontramos datos
msgbox "No hay datos!!"
Endif
'para cerrar la consulta y liberar de la memoria
if rstDatos.state=1 then rstDatos.close
set rstDatos=nothing
Espero haber ayudado con tu inquietud!!
