2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #5919 ulrik19 tag sonar #5918
    Új Válasz #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