Oprettet tir. d. 16. november 2004 kl. 10:21:53

57 point uddelt | 28 kommentarer
mikkelk
mikkelk (17.625 point. Point ude: 770)
www.in-media.dk

Makro til at loope gennem data og skrive txt-fil

Hej

Jeg står og skal bruge en makro der kan gøre følgende:

køre en SQL-forespørgsel, loope gennem de data der findes ved denne og skrive disse til en txt-fil, linie for linie med skiftende tekst til at adskille disse data.
Jeg har ikke arbejdet så meget i vba, men har et rimeligt kendskab til vb gennem ASP - så hvis jeg kan få et par eksempler på de enkelte dele, så kan jeg nok få stykket det sammen som jeg gerne vil have det.

\Mikkel
Anmeld misbrug
Skriv et svar | Skriv en kommentar

Skrevet tir. d. 16. november 2004 kl. 10:48:28| #1

mikkelk
mikkelk (17.625 point)
www.in-media.dk
Så prøver vi lige at smide lidt ekstra point i, for ville meget gerne have et lidt hurtigt svar, så jeg kan komme videre :-)
Anmeld misbrug
Skriv et svar | Skriv en kommentar

Skrevet tir. d. 16. november 2004 kl. 10:51:58| #2

staticdata
staticdata (14.989 point)
Er du frisk på at kode, for jeg tror ikke lige at en Access-makro kan klare det?
Anmeld misbrug
Skriv et svar | Skriv en kommentar

Skrevet tir. d. 16. november 2004 kl. 11:19:14| #3

Accepteret svar!57 point tildelt
staticdata
staticdata (14.989 point)
Værsgo - og send 250 kr. til "http://www.danskfolkepartiskalikkeregeredanmark.dk/ (...), hvis du kan bruge det. Jeg har IKKE testet; det er blot flået ud af en program, jeg bruger.

Findes der nogle Access-hajer, som lige vil kritisere det, thanks?! Jeg ved, at jeg har den uskik først at definere variable, når jeg skal bruge dem...

Sub  x561769 ()
'Læs fra et SQL-statement og skriv til fil.

1. Databaseri
Dim Dbs As Database
Set Dbs = CurrentDb
Dim strSQL As String
strSQL = "SELECT ditten FROM datten WHERE dutten"
Dim Rst As Recordset
Set Rst = Dbs.OpenRecordset(strSQL)
'..Måske overflødigt nu-om-stunder, måske kun et råd fra gamle dage:
' Flyt til slutningen af Recordset.
Rst.MoveLast
' Returner til den første post.
Rst.MoveFirst
Dim varRecords As Variant
' Returner alle rækkerne i matrixen.
varRecords = Rst.Getrows(Rst.RecordCount)

2. Fileri
Dim ChrTab As String
ChrTab = Chr(vbKeyTab) ' Tab som delimitor
Dim record As String
Close #1 'Bad luck, hvis #1 findes og bruges!
Dim OuFname As String
Open OuFname For Output As #1

Dim intRecord As Integer
Dim i As Integer
For intRecord = 0 To UBound(varRecords, 2)
record=""
For i = 0 To NoCols 'Antal kolonner i dit SqlStatement.
record = varRecords(i, intRecord)
record = record & ChrTab
Next i
Print #1, record
Next intRecord

Close #1
End Sub
Anmeld misbrug
Skriv et svar | Skriv en kommentar

Skrevet tir. d. 16. november 2004 kl. 11:24:34| #4

staticdata
staticdata (14.989 point)
Ups..efter "Dim OuFname" skal OuFname selvfølgelig initialiseres, f.eks.
OuFname="y:\MyDrive\MySubdrive\MyFile.MyFileextension"
Nå, back to work
Anmeld misbrug
Skriv et svar | Skriv en kommentar

Skrevet tir. d. 16. november 2004 kl. 11:36:24| #5

mikkelk
mikkelk (17.625 point)
www.in-media.dk
Kommer med fejl i: "Dim Dbs As Database"
Anmeld misbrug
Skriv et svar | Skriv en kommentar

Skrevet tir. d. 16. november 2004 kl. 11:52:30| #6

staticdata
staticdata (14.989 point)
Skriver du som Macro eller Visual Basic? Hvis som VB, prøv at kalde den noget andet, f.eks. Dbs1
Anmeld misbrug
Skriv et svar | Skriv en kommentar

Skrevet tir. d. 16. november 2004 kl. 11:53:31| #7

staticdata
staticdata (14.989 point)
..har lige set, at jeg mangler nogle kommentartegn foran '1. databaseri og '2. fileri. Sorry, men det forklarer ikke 11:36:24
Anmeld misbrug
Skriv et svar | Skriv en kommentar

Skrevet tir. d. 16. november 2004 kl. 12:03:50| #8

mikkelk
mikkelk (17.625 point)
www.in-media.dk
user-defined type not defined
(skriver som vb)
Anmeld misbrug
Skriv et svar | Skriv en kommentar

Skrevet tir. d. 16. november 2004 kl. 12:06:56| #9

staticdata
staticdata (14.989 point)
Prøv uden, men ellers er der muligvis en setting som skal sættes
Anmeld misbrug
Skriv et svar | Skriv en kommentar

Skrevet tir. d. 16. november 2004 kl. 12:11:52| #10

mikkelk
mikkelk (17.625 point)
www.in-media.dk
hmm...blev det ikke bedre af...Så fik vi fejl i linien: Set Rst = Dbs.OpenRecordset(strSQL)
Anmeld misbrug
Skriv et svar | Skriv en kommentar

Skrevet tir. d. 16. november 2004 kl. 12:14:40| #11

staticdata
staticdata (14.989 point)
Ja, det virker hos mig, og har gjort det siden Windows 3.1 - så der MÅ være en setting et sted; jeg leder. Imens kunne du prøve UDEN dbs, d.v.s. i set rst=OpenRecordset(strSQL)
Anmeld misbrug
Skriv et svar | Skriv en kommentar

Skrevet tir. d. 16. november 2004 kl. 12:20:22| #12

mikkelk
mikkelk (17.625 point)
www.in-media.dk
Ok, tror jeg gør et eller andet helt galt...
Ganske kort - hvor og hvordan opretter jeg den kode i access og hvordan kører jeg den? (Troede jeg havde fat idet, men åbenbart ikke :-) )
Anmeld misbrug
Skriv et svar | Skriv en kommentar

Skrevet tir. d. 16. november 2004 kl. 12:22:45| #13

staticdata
staticdata (14.989 point)
Gå i Visual Basic, tryk hjælp, Tryk index, vælg "database property", se example: Her er eksempler på "Dim dbs as Database" - jeg ved stadig ikke, hvorfor det ikke virker hos dig.
Anmeld misbrug
Skriv et svar | Skriv en kommentar

Skrevet tir. d. 16. november 2004 kl. 12:24:15| #14

staticdata
staticdata (14.989 point)
Ups, comments crossed. Hvis du vil teste, at du er på rette vej med at aktivere kode i VB, så lav en sub, som blot udskriver, f.eks.

Sub Test()
MsgBox "Hello world"
End Sub

Måske har du glemt at kompilere koden?
Anmeld misbrug
Skriv et svar | Skriv en kommentar

Skrevet tir. d. 16. november 2004 kl. 12:31:40| #15

mikkelk
mikkelk (17.625 point)
www.in-media.dk
Test() virker fint...
Anmeld misbrug
Skriv et svar | Skriv en kommentar

Skrevet tir. d. 16. november 2004 kl. 12:31:55| #16

staticdata
staticdata (14.989 point)
"Ganske kort - hvor og hvordan opretter jeg den kode i access og hvordan kører jeg den?" Hvis du er i tvivl er her et eksempel:

Lav en makro med én linie "AfspilKode" i Handling, og funktionsnavn (i bunden) er Test(). Gem den.
Lav et modul (Modul, Ny) og lav og gem FUNKTION, ikke sub, som jeg skrev før:

Function Test()
MsgBox "Hello world"
End Function

Kør makroen fra før. Hvis du ikke får "Hello World" op i en Message Box, må vi prøve igen...
Anmeld misbrug
Skriv et svar | Skriv en kommentar

Skrevet tir. d. 16. november 2004 kl. 12:33:14| #17

staticdata
staticdata (14.989 point)
Ups, comments crossed. Ignorer seneste. Jeg leder efter den setting! Hold on (eller håb på hjælp fra andre)
Anmeld misbrug
Skriv et svar | Skriv en kommentar

Skrevet tir. d. 16. november 2004 kl. 12:36:25| #18

Skrevet tir. d. 16. november 2004 kl. 12:42:41| #19

mikkelk
mikkelk (17.625 point)
www.in-media.dk
Ok, Hello World eksemplet virker og det var stort set også sådan jeg havde gjort med det tidligere eks. så jeg var vidst ikke helt galt i byen alligevel...
Anmeld misbrug
Skriv et svar | Skriv en kommentar

Skrevet tir. d. 16. november 2004 kl. 12:42:58| #20

mikkelk
mikkelk (17.625 point)
www.in-media.dk
Men det virker så stadigvæk ikke med database-delen...
Anmeld misbrug
Skriv et svar | Skriv en kommentar

Skrevet tir. d. 16. november 2004 kl. 12:44:56| #21

mikkelk
mikkelk (17.625 point)
www.in-media.dk
Jeg kan sagtens få den til at skrive til filen, hvis jeg udkommenterer hele database-delen...
Anmeld misbrug
Skriv et svar | Skriv en kommentar

Skrevet tir. d. 16. november 2004 kl. 12:59:51| #22

mikkelk
mikkelk (17.625 point)
www.in-media.dk
SÅ virker det...
Function Test()
Dim strSQL As String
strSQL = "SELECT [id],[testfelt1],[testfelt3] FROM [test1]"
Set Rst = CurrentDb.OpenRecordset(strSQL)
'.Måske overflødigt nu-om-stunder, måske kun et råd fra gamle dage:
' Flyt til slutningen af Recordset.
Rst.MoveLast
' Returner til den første post.
Rst.MoveFirst
Dim varRecords As Variant
' Returner alle rækkerne i matrixen.
varRecords = Rst.GetRows(Rst.RecordCount)

Dim ChrTab As String
ChrTab = Chr(vbKeyTab) ' Tab som delimitor
Dim record As String
Close #1 'Bad luck, hvis #1 findes og bruges!
Dim OuFname As String
OuFname = "c:\MyFile.txt"
Open OuFname For Output As #1

Dim intRecord As Integer
Dim i As Integer
For intRecord = 0 To UBound(varRecords, 2)
record = ""
For i = 0 To NoCols 'Antal kolonner i dit SqlStatement.
record = varRecords(i, intRecord)
record = record & ChrTab
Next i
Print #1, record
Next intRecord

Close #1

End Function
Anmeld misbrug
Skriv et svar | Skriv en kommentar

Skrevet tir. d. 16. november 2004 kl. 13:07:19| #23

mikkelk
mikkelk (17.625 point)
www.in-media.dk
Og er nu endeligt kommet frem til følgende:
Function Test()
Dim strSQL As String
strSQL = "SELECT [id],[testfelt1],[testfelt3] FROM [test1]"
Set Rst = CurrentDb.OpenRecordset(strSQL)
'.Måske overflødigt nu-om-stunder, måske kun et råd fra gamle dage:
' Flyt til slutningen af Recordset.
Dim OuFname As String
OuFname = "c:\MyFile.txt"
Open OuFname For Output As #1
Do While Not Rst.EOF
    record = Rst!id
    Print #1, record
Rst.MoveNext
Loop
Close #1


'Dim ChrTab As String
'ChrTab = Chr(vbKeyTab) ' Tab som delimitor
'Dim record As String
'Close #1 'Bad luck, hvis #1 findes og bruges!

'Dim intRecord As Integer
'Dim i As Integer
'For intRecord = 0 To UBound(varRecords, 2)
'record = ""
'For i = 0 To NoCols 'Antal kolonner i dit SqlStatement.
'record = varRecords(i, intRecord)
'record = record & ChrTab
'Next i
'Print #1, record
'Next intRecord


End Function
Anmeld misbrug
Skriv et svar | Skriv en kommentar

Skrevet tir. d. 16. november 2004 kl. 13:07:44| #24

mikkelk
mikkelk (17.625 point)
www.in-media.dk
hov...selvfølgelig bare hvor alt det udkommenterede bliver slettet :-)
Anmeld misbrug
Skriv et svar | Skriv en kommentar

Skrevet tir. d. 16. november 2004 kl. 13:08:58| #25

mikkelk
mikkelk (17.625 point)
www.in-media.dk
Men takker mange gange for din hjælp!!! Og hermed point...
Anmeld misbrug
Skriv et svar | Skriv en kommentar

Skrevet tir. d. 16. november 2004 kl. 13:17:11| #26

staticdata
staticdata (14.989 point)
Anytime. Husk 11:19:14, hø-hø.
Anmeld misbrug
Skriv et svar | Skriv en kommentar

Skrevet tir. d. 16. november 2004 kl. 13:24:07| #27

staticdata
staticdata (14.989 point)
..og så fandt jeg stedet (og nu er det lige meget): Fra VB: Tools->References, hak af i "Microsoft DAO 3.6 Object Library"! Så kan jeg lige dokumentere det hos mig selv. :-)
Anmeld misbrug
Skriv et svar | Skriv en kommentar

Skrevet tir. d. 16. november 2004 kl. 15:16:21| #28

Skriv et indlæg




Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] [img]link til billede[/img]
Web- og emailadresser omdannes automatisk til links
Se preview
Opret

Log ind

   
Opret bruger | Glemt adgangskode
   

Seneste spørgsmål

Link til et dokument

Oprettet den 10. februar 2012 kl. 14.15
omn giver 60 point for svar | Giv et svar »

Formular med flere paramtre

Oprettet den 9. februar 2012 kl. 16.48
stuegnu giver 100 point for svar | Giv et svar »

Kodemodul ???

Oprettet den 8. februar 2012 kl. 17.05
olejohn giver 200 point for svar | Giv et svar »

Seneste guides

Installer win 7
9. februar 2012 kl. 14.11 | Læs »
Installation af Apache2, PHP5, MySQL5, Phpmyadmin og...
8. februar 2012 kl. 20.05 | Læs »
Den hurtige og effektive metoder til at knække...
4. februar 2012 kl. 23.16 | Læs »
Guide til usb internet også kaldet mobilt bredbånd
4. februar 2012 kl. 22.33 | Læs »
Den gode bruger
30. januar 2012 kl. 04.45 | Læs »
   

Seneste nyheder

Måske snart slut med Androids helt store problem
10. februar 2012 kl. 13.40 | Læs »
Her er fem sjove danske websider du skal kende
10. februar 2012 kl. 13.31 | Læs »
NemId sprængt: Hackere bryder ind i Danske Bank
10. februar 2012 kl. 13.06 | Læs »
Danmark kigger langt efter musikbranchens guldkalv
10. februar 2012 kl. 12.20 | Læs »
Nu kan du snart hente Windows 8
10. februar 2012 kl. 11.41 | Læs »

Tips & Tricks fra PC World

Teaser billede

Her er fem sjove danske websider du skal kende

Trænger dine lattermuskler til en omgang fitness på dansk? Vi viser vej til fem websider fyldt med humor og vanvittig satire.

Læs mere »

Anmeldelser fra PC World

Teaser billede

Test: Denne super-tablet er iPads hårdeste konkurrent

Eee Pad Transformer Prime er frygtindgydende med sin quadcore processor og evne til at trylle sig om til bærbar. Apple bør kigge i bagspejlet, for Asus' tablet-pc kommer buldrende - og gør det...

Læs mere »

Seneste blogindlæg

Teaser billede

Tvangslukke spørgsmål: Hvad er den bedste løsning?

Hej Vi har mange åbne spørgsmål på Eksperten. Vi ville gerne tvangslukke dem - så et spørgsmål efter f.eks. 6 måneder lukkes. Men der er et par uklarheder som ville være gode at få lidt input til:...

Læs mere »

Nyheder fra PC World

Teaser billede

Nu kan du snart hente Windows 8

Den nye offentlige betaversion af Windows 8 er klar i denne måned.

Læs mere »

Nyheder fra Computerworld

Teaser billede

Måske snart slut med Androids helt store problem

Android-platformen har længe været plaget af et særligt problem. Men måske er problemet nu ved at være elimineret.

Læs mere »

Kurser
Lederuddannelse for it medarbejdere
Word kursus 2007-2010 VBA Programmering
Adobe Photoshop CS4-CS5 Udvidet
Microsoft Certified Technology Specialist, Sharepoint 2010, for ledige
Microsoft Certified Systems Administrator for ledige
Cisco Certified Network Associate (CCNA) for ledige
Lær at anvende WordPress
Microsoft Certified IT Professional (Windows 7) for ledige
Adobe Photoshop CS4-CS5 Grundlæggende
Internet Explorer Grundlæggende
Alle kurser »
Samarbejdspartnere
Ferienhäuser in Dänemark.
Webhotel
Bærbar
Computer
Digital TV fra Viasat
VM fodbold
Udgiver · © 2012 IDG Danmark A/S · Hørkær 18 · 2730 Herlev · Tlf.: 77 300 300 · Fax: 77 300 301 · Brug af personoplysninger