Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

kopiranje podataka iz sql-a 2000 u excel file

[es] :: Office :: Excel :: kopiranje podataka iz sql-a 2000 u excel file

[ Pregleda: 2528 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Joja82
Beograd

Član broj: 50336
Poruke: 338
212.200.31.*



+5 Profil

icon kopiranje podataka iz sql-a 2000 u excel file25.08.2008. u 14:12 - pre 163 meseci
Imam jedno pitanje interesuje me kako da iz Sql-a 2000 iskopiram podatke u excel celije preko ado konekcije VB kodom?

Ja imam ADO konekciju i to mi sve radi, I napravim upit u VB za sql i nece nista da mi iskopira. Jel neko mozda imao slican problem?
 
Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2206
*.bisinter.net.

Sajt: www.gowi.rs


+97 Profil

icon Re: kopiranje podataka iz sql-a 2000 u excel file25.08.2008. u 14:55 - pre 163 meseci
Da li si proverio da tekst upita koji dobiješ u kodu vraća neki rezultat?
Evo kod koji ja standardno koristim, ali najbolje da postaviš svoj kod pa da pogledamo u čemu je problem.

Code:

Sub UpitSQL (param1 As String)
'
  Dim oConn As ADODB.Connection
  Dim sConn As String
  Dim oRS As ADODB.Recordset
  Dim oRSKupac As ADODB.Recordset
  Dim sSQL As String    ' tekst upita
  Dim r As Long
  
  r = 2  ' red za pocetak liste podataka

' Otvaranje konekcije
  sConn = "Provider=sqloledb;" & _
         "Data Source=" & SQLSERVER & ";" & _
         "Initial Catalog=" & SQLBAZA & ";" & _
         "User Id=" & SQLUSER & ";" & _
         "Password=" & SQLPASS
  Set oConn = New ADODB.Connection
  oConn.ConnectionString = sConn
  oConn.Open
' Formiranje upita
  sSQL = "SELECT  A, B FROM Tabela WHERE C = " & param1  ' Ovde formirati upit        
' Ucitavanje podataka za upit
  Set oRS = oConn.Execute(sSQL)
' Petlja za prolazak kroz ucitanje vrednost
 Application.Cursor = xlWait
 Do Until oRS.EOF
      ActiveSheet.Cells(r, 1).Value = oRS(1)
      ActiveSheet.Cells(r, 2).Value = oRS(2)
      oRS.MoveNext
      r = r + 1
 Loop
 
 ' Zatvaranje konekcije
 oRS.Close
 Set oRS = Nothing
 oConn.Close
 Set oConn = Nothing
 Application.Cursor = xlDefault
End Sub


Moguć je i alternativni način uvoza podatak u Excel kreiranjem dinamičkog upita (data query) pomoću iz interfejsa ili vba http://www.dicks-clicks.com/excel/ExternalData.htm
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
 
Odgovor na temu

Joja82
Beograd

Član broj: 50336
Poruke: 338
212.200.212.*



+5 Profil

icon Re: kopiranje podataka iz sql-a 2000 u excel file25.08.2008. u 17:21 - pre 163 meseci
Hvala Peco najlepse, sutra cu probati u firmi pa javljam sta sam uradio!!!
 
Odgovor na temu

Joja82
Beograd

Član broj: 50336
Poruke: 338
212.200.31.*



+5 Profil

icon Re: kopiranje podataka iz sql-a 2000 u excel file26.08.2008. u 12:33 - pre 163 meseci
Samo da kazem da sam odustao od VB koda i da sam napravio u export podataka preko DTS tool-a u SQL-u.

Puno pozdrava!
 
Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1291

Jabber: 3okc@elitesecurity.org


+111 Profil

icon Re: kopiranje podataka iz sql-a 2000 u excel file25.09.2009. u 17:29 - pre 150 meseci
Možda si mogao da završiš uz namensku f-ju SQL.REQUEST().

Citat:
SQL.REQUEST

Vrši povezivanje sa spoljnim izvorom podataka i pokreće upit iz radnog lista. SQL.REQUEST zatim daje rezultat kao niz bez potrebe za makro programiranjem. Ako ova funkcija nije dostupna, morate da instalirate Microsoft Excel ODBC programski dodatak (XLODBC.XLA). Programski dodatak možete da instalirate sa Microsoft Office Web lokacije.

Sintaksa

SQL.REQUEST(connection_string;output_ref;driver_prompt;query_text;col_names_logical)


Kompletno objašnjenje imaš tu
http://office.microsoft.com/sr-latn-cs/excel/HP052092672074.aspx
Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!
 
Odgovor na temu

[es] :: Office :: Excel :: kopiranje podataka iz sql-a 2000 u excel file

[ Pregleda: 2528 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.