Tabla por odbc Mysql

[harryems]

Que tal foreros??

aun no soy un master en excel, y como muchos el mismo excel es el que me ha ido enseñando, grabo una macro y despues modifico el codigo.

lo que estoy haciendo es mostrar una consulta a una base de datos Mysql, pero cuando grabo la macro con Datos->De otras fuentes->Asistente de conexion me genera un archivo odc. No habia problema asi funcionaba, pero si lo intento executar desde otra maquina, me marca error porque ese archivo no existe.

este es el codigo que me genera:



With ActiveSheet.ListObjects.Add(SourceType:=0, SOURCE:= _
"ODBC;DSN=niveles_servicio;OPTION=0;;PORT=0;SERVER =sbd;UID=nivel_servicio", _
Destination:=Range("$A$6")).QueryTable
.CommandText = Array( _
"SELECT * FROM `NIVEL`.`NIVEL2011`")
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceConnectionFile = _
"C:\Documents and Settings\...\Mis documentos\Mis archivos de origen de datos\NIVEL.odc"
.ListObject.DisplayName = "Tabla_NIVEL"
.Refresh BackgroundQuery:=False
End With




como podria hacer para poner ahi la cadena de conexion y no en un archivo??

mil gracias

[Perr0]

hola, lo primero
tener instalado los driver ODBC para MySQL, yo instale los 3.5

te dejo mi trabajo ya que lo hago en una intranet y no sirven las pass

Código vb:

Public cn, RS
 
Sub abrirConn()
Set cn = CreateObject("ADODB.Connection")
Set RS = CreateObject("ADODB.Recordset")
strCon = "Driver={MySQL ODBC 3.51 Driver};Server=base-ale-cl;Database=excelcalculador;" _
& "User=connExcel;Password=concurrencia;Option=3;"
cn.Open strCon
End Sub
 
Sub cerrarConn()
RS.Close
End Sub
 
 
Sub cargarUsuarios()
abrirConn
strSQL = "SELECT name_users FROM dat_usuarios ORDER BY name_users"
RS.Open strSQL, cn
f = 0
tope = 8
    Do While Not RS.EOF
        ' recorre los campos en el registro actual del recordset para recuperar el dato
        For i = 0 To RS.Fields.Count - 1
            'Sheets(1).login.AddItem RS.Fields(i)
            Sheets(1).Cells(f + tope, 14) = RS.Fields(i)
            'Cells(i + 15, 1) = RS.Fields(i)
        Next
        f = f + 1
        ' Siguiente registro
        RS.MoveNext
    Loop
 
cerrarConn
 
limitelista = f + tope - 1
 
With Sheets(1).Range("C9")
    .Validation.Delete
    .Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:="=N" & tope & ":N" & limitelista
    .Validation.IgnoreBlank = True
    .Validation.InCellDropdown = True
End With
 
End Sub
 
 
Sub coneccion()
usuario = Sheets(1).Range("C9")
passescrita = Sheets(1).Range("C10")
 
abrirConn
strSQL = "SELECT id_users,inic_users,pass_users FROM dat_usuarios WHERE name_users=""" & usuario & """LIMIT  1"
RS.Open strSQL, cn
 
    Do While Not RS.EOF
        ' recorre los campos en el registro actual del recordset para recuperar el dato
        For i = 0 To RS.Fields.Count - 1
            If i = 0 Then idusuario = RS.Fields(i)
            If i = 1 Then inicusuario = RS.Fields(i)
            If i = 2 Then passusuario = RS.Fields(i)
        Next
        ' Siguiente registro
        RS.MoveNext
    Loop
 
cerrarConn
 
 
If CStr(passescrita) = CStr(passusuario) Then
    Sheets(1).Range("O1") = idusuario
    Sheets(1).Range("O2") = inicusuario
    ingreso
Else
    MsgBox ("Error en la contraseña")
    Exit Sub
End If
 
End Sub
 

salu2

[harryems]

Muchas gracias!!! pruebo y comento

[harryems]

hasta el momento todo va bien.
pero en general no se el nombre de los campo, o en su defecto son muchos.

mi idea es pegar todo el registro por renglon.

a diferencia de las funciones que haz puesto, que van escribiendo dato por dato en cada celda.

de ante mano muchas gracias

[harryems]

muchas gracias por la atencion!!!
listo!!!!


RS.Open strSQL, cn
Range("A6").CopyFromRecordset RS