cargar datos de sqlserver - VB-MUNDO

choche_ · #1 (**permalink**) 09-09-2006, 16:44:53

Hola a todos .

Le comento mi problema tengo un formulario en el cual me muestra unos datos que obtengo desde SQLSERVER y los paso a una hoja excel , uso un odbc conectado a la base.-

Código:

    Str = "excel_despacho_folio_res2 " & txtFolioInicio.Text & " "
    Sheets("despachos").Select
    Sheets("despachos").Cells.Select
    Selection.Delete Shift:=xlUp
    Sheets("despachos").Range("A1").Select
    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DSN=cpvqEmpaque;UID=sa;APP=Microsoft Office 2003;DATABASE=vq_empaque;LANGUAGE=Español;QueryLog_On=Yes;QueryL" _
        ), Array("ogTime=60000")), Destination:=Sheets("despachos").Range("A1"))
        .CommandText = Str
......
        .Refresh BackgroundQuery:=False
    End With

el punto es el siguiente cada vez que paso por la rutina me esta pidiendo la contraseña del usuario en la base, pero si se dan cuenta en el codigo se le menciona que es 'sa' y sin clave.-

Como evito esto por que necesito hacer un ciclo que cargue valores y no quiero ingresar en su efecto contraseña cada vez que lo pida o hacer el aceptar.-

gracias.-