2. Fórumok
  3. Szoftverfejlesztés
  4. Visual Basic

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

  • #1824 Gülredy tag
    Új Válasz #1824
    Ú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

    Gülredy

    tag

    Sziasztok!

    Egy olyan kérdésem lenne, hogy hogyan tudnék excel-ből sql adatbázsiba exportálni oszlopokat?

    Van egy próbálkozásom de nem tudom hogy hogy tudnám megadni az oszlopokat mert mindenre hibát dob!

    Dim strSQL As String
    Dim strXLSource As String
    Dim lngRecsAff As Long


    strConn = strConn & "Provider=SQLOLEDB;Data Source=;"
    strConn = strConn & "Initial Catolog=;Trusted_Connection=YES"
    Set cn = New ADODB.connection
    cn.Open "DRIVER={MySQL ODBC 5.1 Driver}" _
    & ";SERVER=localhost" _
    & ";DATABASE=test" _
    & ";UID=root" _
    & ";PWD=root" _
    & ";OPTION=16427"
    strXLSource = "c:\david\test\Munkafüzet1.xlsm;Extended Properties=Excel 12.0"


    '
    'Import by using OPENDATASOURCE.
    '
    'INSERT INTO
    '(SQL Fields)
    '
    'SELECT
    '
    'FROM OPENDATASOURCE('Microsoft.ACE.OLEDB.12.0', 'Data Source=$]

    strSQL = "INSERT INTO valuta (a)"
    strSQL = strSQL & "VALUES "
    'strSQL = " INSERT INTO valuta VALUES "
    'SELECT a, b, c FROM valuta"
    'strSQL = strSQL & " ([a]) "
    'strSQL = strSQL & " SELECT [a] "
    'strSQL = strSQL & " FROM "
    'strSQL = strSQL & " OPENDATASOURCE('valuta', 'Data Source=" & strXLSource & "')...[tbla$] "

    Debug.Print strSQL

    cn.Execute strSQL, lngRecsAff, adExecuteNoRecords

    Debug.Print "Records affected: " & lngRecsAff

    End Sub

    Valójában ezt az strSQL-es részt nem igazán értem hogy hogyan adhatnám meg!
    Egy értéket meg tudok adni sql szintaxissal de nekem egész oszlop adatait kellene exportálni!

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