Új hozzászólás Aktív témák

• #5919 ulrik19 tag sonar #5918

  Új Válasz 2010-01-04 20:42:46 #5919

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  ulrik19

  tag

  válasz sonar #5918 üzenetére

  Kell hozzá a Microsoft ActiveX Data Objects 2.8 Library (Tools/References).

  Értelemszerűen adatbázisnév, felhasználónév és jelszó a ConnectionString-ben. Illetve ugyanitt meg kell adni az adott MySQL ODBC driver-t. (Nálam 5.1, de az adott gépen persze lehet más. Ha rosszat adtok meg, nem találja meg.)

  Ebben a példában 3 mezőt ad vissza a lekérdezés, aztán minden visszaadott adatot kinyom az első sheet-re. Profin persze kellene bele hibakezelés stb.

  Option Explicit
  
  Public conn As ADODB.Connection
  Public rs As Recordset
  Public sh1 As Worksheet
  Public SQL As String
  
  Public Sub mySQL_kapcsolat()
  Dim c As Integer
  
  Set sh1 = Excel.Worksheets(1)
  Set conn = New ADODB.Connection
  Set rs = New ADODB.Recordset
  
  conn.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost; DATABASE=adatbazisnev;UID=anonymus;PWD=; OPTION=3"
  conn.Open
  
  SQL = "select * from tbl_tablanev"
  
  rs.CursorLocation = adUseServer
  rs.Open SQL, conn
  rs.MoveFirst
  
  c = 1
  Do Until rs.BOF Or rs.EOF
  sh1.Cells(c, 1).Value = rs.Fields(0)
  sh1.Cells(c, 2).Value = rs.Fields(1)
  sh1.Cells(c, 3).Value = rs.Fields(2)
  rs.MoveNext
  c = c + 1
  
  If rs.EOF Then
  rs.MoveFirst
  Exit Sub
  End If
  Loop
  
  End Sub

Új hozzászólás Aktív témák