Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Databas: AS400 språk VBA

Postades av 2003-03-11 19:43:01 - Bo Hammarström, i forum Skrivklåda, Tråden har 1 Kommentarer och lästs av 979 personer

Hej,

Försöker hämta data från AS400 till ett sheet i Excel. Jag kan se att sql frågan hittar rätt antal poster men......
Jag får ingent resultat till sheetet.

Här är koden :

Dim i As Integer
Dim result As Range

'Define the communication
Set cn400 = CreateObject("ADODB.Connection")
cn400.Open "Provider=IBMDA400;Data Source = VF4A.VCE.VOLVO.SE;", "", ""

'Set the library list
'cn400.Execute "{{addlible lib(vq30024) position(*first)}}"

'Execute the SQL
Set rs = cn400.Execute("select vndnr, vname, vcity from mylib.myfile where vcntr = 'DK'")

'Initiate step counter
i = 0

'Clean upp all used cells
Worksheets(1).UsedRange.ClearContents

'Loop through the record set
Do Until rs.EOF

'Write selected fields to the spreadsheet

Range("result").Offset(i, 0).Value = (rs("vndnr")) 'Vendor number
Range("result").Offset(i, 1).Value = (rs("vname")) 'Vendor name
Range("result").Offset(i, 2).Value = (rs("vcity")) 'Vendor city

'Next row number
i = i + 1

'Step to next line in the record set
rs.MoveNext

Loop

Stop

'Close communication and record set
rs.Close
cn400.Close

Range("result").Select
Selection.Resize(i, 3).Select

End Sub


Svara

Sv: Databas: AS400 språk VBA

Postades av 2003-08-08 16:28:29 - Bertil Lilja

Hej
Vet inte om det fortfarande är aktuellt men jag såg att du inte fått några svar.

Följande är fel
Cellen längst upp till vänster har index 1,1 inte 0,0

Sedan
Är ingen direkt fena på Excel men det verkar som det är Range som är felaktigt hanterat. Om jag testar motsvarande kod (bortsett från Range) och istället använder
Worksheets("Sheet1").Cells(i, 1).Value = rs(0)

Så fungerar det och jag får ut data ur våran iSeries.

Mvh
/Bertil


Svara

Nyligen

  • 16:36 Allt du behöver veta om keramiskt
  • 16:14 Vem anlitar man egentligen när tak
  • 16:14 Vem anlitar man egentligen när tak
  • 16:13 Vem anlitar man egentligen när tak
  • 11:52 Noen erfaring med uttak hos Mostbe
  • 11:51 Noen erfaring med uttak hos Mostbe
  • 20:22 Spel
  • 17:07 Snabb och trevlig webbplats utan l

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 120
27 958
271 737
514
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies
Expand
next previous
Close

Previous

0/0

Next