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

• martonx veterán

  #1825

  #1824 Gülredy

  2012-08-16 11:49:56

  Új Válasz

  Ú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

  

  martonx

  veterán

  #1824 Gülredy

  #1824 Gülredy

  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!

  strSQL = "INSERT INTO valuta (a,b,c)" - itt adod meg, hogy mely sql mezőkbe akarsz értéket beszúrni.
  strSQL = strSQL & "VALUES (" cells(sor,oszlop).text ")" - kell két and jel természetesen, csak a billentyűzetem szar.

  Az egészet pedig egy for vagy while ciklussal annyirszor futtatod ahány sorod van.

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