MACRO EXCEL y SQL SERVER 2008

[ragde23fer]

Hola, no se si podran ayudarme, estoy tratando de conectarme a SQL SERVER 2008, he creado mi ODBC, pero no se como conectarme a el, por favor, alguien tiene algunas muestras de como hacer:

1. Update
2. Insert
3. Delete
4. Listado

Por favor me seran de muchisima ayuda

Gracias
Edgar

[jhonmelguizo]

Hola Edgar,

Código vb:

Public Function getUnidad(Componente As String)
 
    Dim RecordSet As New ADODB.RecordSet
    
    Dim cn As New ADODB.Connection
    Dim provStr As String
    
    cn.Provider = "sqloledb"
    
    provStr = "Server=MiServidor;Database=Midb;Trusted_Connection=no"
    cn.Open provStr, "user", "pass123", 0
    
    RecordSet.Open "SELECT item_no, item_desc_1, mfg_uom  FROM imitmidx_sql WHERE item_no = '" & Componente & "'", cn, adOpenDynamic, adLockPessimistic
    
    If RecordSet.BOF And RecordSet.EOF Then
        MsgBox "No hay registros"
    Else
        getUnidad = RecordSet("mfg_uom")
    End If
    
    cn.Close
    
End Function
 

En las referencias de Visual Basic activa la referencia llamada Microsoft ActiveX Data Objects 2.1 Library.

Espero sea de ayuda, saludos.