Ver Mensaje Individual
  #2 (permalink)  
Antiguo 31/03/2011, 12:20
Avatar de Perr0
Perr0
 
Fecha de Ingreso: mayo-2005
Ubicación: Santiago de Chile, Chile
Mensajes: 676
Antigüedad: 19 años, 1 mes
Puntos: 79
Respuesta: Tabla por odbc Mysql

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:
Ver original
  1. Public cn, RS
  2.  
  3. Sub abrirConn()
  4. Set cn = CreateObject("ADODB.Connection")
  5. Set RS = CreateObject("ADODB.Recordset")
  6. strCon = "Driver={MySQL ODBC 3.51 Driver};Server=base-ale-cl;Database=excelcalculador;" _
  7. & "User=connExcel;Password=concurrencia;Option=3;"
  8. cn.Open strCon
  9. End Sub
  10.  
  11. Sub cerrarConn()
  12. RS.Close
  13. End Sub
  14.  
  15.  
  16. Sub cargarUsuarios()
  17. abrirConn
  18. strSQL = "SELECT name_users FROM dat_usuarios ORDER BY name_users"
  19. RS.Open strSQL, cn
  20. f = 0
  21. tope = 8
  22.     Do While Not RS.EOF
  23.         ' recorre los campos en el registro actual del recordset para recuperar el dato
  24.        For i = 0 To RS.Fields.Count - 1
  25.             'Sheets(1).login.AddItem RS.Fields(i)
  26.            Sheets(1).Cells(f + tope, 14) = RS.Fields(i)
  27.             'Cells(i + 15, 1) = RS.Fields(i)
  28.        Next
  29.         f = f + 1
  30.         ' Siguiente registro
  31.        RS.MoveNext
  32.     Loop
  33.  
  34. cerrarConn
  35.  
  36. limitelista = f + tope - 1
  37.  
  38. With Sheets(1).Range("C9")
  39.     .Validation.Delete
  40.     .Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
  41.             xlBetween, Formula1:="=N" & tope & ":N" & limitelista
  42.     .Validation.IgnoreBlank = True
  43.     .Validation.InCellDropdown = True
  44. End With
  45.  
  46. End Sub
  47.  
  48.  
  49. Sub coneccion()
  50. usuario = Sheets(1).Range("C9")
  51. passescrita = Sheets(1).Range("C10")
  52.  
  53. abrirConn
  54. strSQL = "SELECT id_users,inic_users,pass_users FROM dat_usuarios WHERE name_users=""" & usuario & """LIMIT  1"
  55. RS.Open strSQL, cn
  56.  
  57.     Do While Not RS.EOF
  58.         ' recorre los campos en el registro actual del recordset para recuperar el dato
  59.        For i = 0 To RS.Fields.Count - 1
  60.             If i = 0 Then idusuario = RS.Fields(i)
  61.             If i = 1 Then inicusuario = RS.Fields(i)
  62.             If i = 2 Then passusuario = RS.Fields(i)
  63.         Next
  64.         ' Siguiente registro
  65.        RS.MoveNext
  66.     Loop
  67.  
  68. cerrarConn
  69.  
  70.  
  71. If CStr(passescrita) = CStr(passusuario) Then
  72.     Sheets(1).Range("O1") = idusuario
  73.     Sheets(1).Range("O2") = inicusuario
  74.     ingreso
  75. Else
  76.     MsgBox ("Error en la contraseña")
  77.     Exit Sub
  78. End If
  79.  
  80. End Sub


salu2
__________________
Numerador Mp3 en Access =)
http://www.mediafire.com/download/r9...pdw/mp3(2).zip