conexion vb6 con sql 2008

[gusanosxr]

cómo se realiza esa conección???

cómo se hace una consulta con la conección ya hecha?


Saludos

[lokoman]

Hola!
Con este codigo puedes crear conexion:

Código vb:

Public 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:

Dim 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!!

[gusanosxr]

gracias compa!!!!

[gusanosxr]

Iniciado por lokoman

Hola!
Con este codigo puedes crear conexion:

Código vb:

Public 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:

Dim 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!!

compa y la coneccion esa la hago en un modulo??? así la puedo ocupar como global o se copia siempre que quiera conectar?