lille katrotek

Du kan få noget kode i løbet af dagen....
Hvis du har interesse...

- Mikker

Der bliver nok ikke plads til det på en diskette, medmindre du har alle de påkrævede filer (.dll) med mere registreret på maskinen i forvejen...

- Mikker

jeg tror at dll filerne ligger på maskinen (vbrun... ik) - det skal lige nævnes at jeg ikke har et klap forstand på VB - men tænkte at jeg kunne stille sprg her.

men ellers meget interesseret ;-)

Jeg kan lave en lille access database til dig, hvis det er iorden?

Tror ikke du skal lave det som en accessdatabase, den fylder hurtigt mere end en diskette kan rumme.....

Lav det derimod med en INI fil......

det er nemt og overskueligt hvis man åbner den i notepad....
'Declaretion for writing to an .ini file

Public Declare Function WritePrivateProfileString _
Lib "kernel32" Alias "WritePrivateProfileStringA" _
(ByVal lpApplicationname As String, ByVal _
lpKeyName As Any, ByVal lsString As Any, _
ByVal lplFilename As String) As Long

'Declaretion for read from an .ini file

Public Declare Function GetPrivateProfileString Lib _
"kernel32" Alias "GetPrivateProfileStringA" _
(ByVal lpApplicationname As String, ByVal _
lpKeyName As String, ByVal lpDefault As _
String, ByVal lpReturnedString As String, _
ByVal nSize As Long, ByVal lpFileName As _
String) As Long

'Writes new setting to .ini file
   
strFileName = App.Path & "\Setup.ini"
lngResult = WritePrivateProfileString("Overskrift", _
"Emne", "Værdi", strFileName)


'Read option setup from .ini file

strFileName = App.Path & "\setup.ini"
lngResult = GetPrivateProfileString("Overskrift", _
"Emne", strFileName, strResult, Len(strResult), _
strFileName)

Så der er lidt at gå i krig med :O)

Tubber>> Du har ganske givet ret.
Bare ikke lige noget jeg har sat mig ind i...
Du skal være velkomen til at tage over :-)

- Mikker

ok prøver lige sådan hurtigt :O)

Følgende skriver til en inifil der hedder data....

'Declaretion for writing to an .ini file

Private Declare Function WritePrivateProfileString _
Lib "kernel32" Alias "WritePrivateProfileStringA" _
(ByVal lpApplicationname As String, ByVal _
lpKeyName As Any, ByVal lsString As Any, _
ByVal lplFilename As String) As Long
Dim nummer As String
Dim kunde As String
Dim nota As String
Private Sub Command1_Click()
'Writes new setting to .ini file

kunde = Text1.Text
nummer = Text2.Text

strFileName = App.Path & "\data.ini"
lngResult = WritePrivateProfileString(kunde, _
"Kundenr", nummer, strFileName)

kunde = Text1.Text
nota = Text3.Text

strFileName = App.Path & "\data.ini"
lngResult = WritePrivateProfileString(kunde, _
"Note", nota, strFileName)

End Sub

Der er 3 tekstfelter og en command button
outputtet ser ud som følger......

[Eksperten]
Kundenr=12345678
Note=Sitet med den fede hjælp

sådan man bruger bare den til at read med istedet når man henter data ind igen :O)

Håber det giver en ide om hvordan det virker....

Jeg har desværrer ikke tid til at lave hele programmet....

/Tubber

Ved ikke om man skal oprette den inifil manuelt eller om den gør det når man prøver at skrive, jeg opretter altid mine manuelt...

Og lige et hint, lav en løgge der henter alle dem der står i [], ind i en combobox, altså til den rutine der læser, for så skulle man kunne lave så den henter de data der tilhører ind i tekstfelter...

tubber>> jage ved ikke om du læste at jeg ved minus om VB - jeg leder nærmest efter en færdig løsning (eller en der kommer tæt på)
Selve layout osv er ligegyldigt - jeg skal bruge det somet arbejdsredskab i mit daglige arbejde til at holde styr (for mig selv) på kunder - jeg kan ikke installere på min arbejdspc så derfor diskette !!

Tror jeg holder mig til Access, men den bliver rigtig nok hurtigt stor...
avminarm>> Prøv evt. at lukke dette spørgsmål og oprette et andet, hvis du vil have en anden til at hjælpe.

- mikker

Hvis ikke du kan installere på din arbejdspc, kan jeg nok ikke hjælpe.
der er så mange små filer der skal forefindes...

- Mikker

Giv mig en emailadresse, så sender jeg en lille fil, så laver jeg det bare med en .txt fil. Ikke kønt, men nok funktionelt. Så kan du prøve at køre den. Hvor mange kunder snakker vi om?

- Mikker

mikker : det er nu nemt med den inifil......du kan bare copy paste det jeg har....

avminarm : Jeg ved godt hvad du skrev, men det med tid, håbede at mikker kunne gøre det færdigt hvis jeg nu gav løsningen :O)

hov alt efter antal poster skal man bare gentage den der function

Hej avminarm.

Jeg har lavet flere forskellige små baser, der alle anvender ascii-filer til opbevaring. På www.jkfsoft.dk/sites.htm kan du se en der er beregnet for at gemme stamdata, URL og noter.
Den er lavet i VB3 og vbrun300.dll fylder kun 400 kb, selve programmet er lille og på en diskette kan nok være nogle tusinde poster, når du ikke gemmer billeder.
Eneste minus er at der ikke må anvendes 'Enter' i note-feltet (fordi 'enter' adskiller felter).
Jeg ved nok at svar på 'eksperten' skal være åbne, og jeg lægger gerne kildeteksten frem, men det er lidt heftigt, at lægge den som et svar.

M.v.h.  Jørn

joern>> Så vidt jeg ved skal vbrun300.dll vel stadig registreres på selve maskinen??

Så vidt jeg husker fra et tidligere indlæg stod der vist oget med:
...
jeg skal bruge det somet arbejdsredskab i mit daglige arbejde til at holde styr (for mig selv) på kunder - jeg kan ikke installere på min arbejdspc så derfor diskette !!
...
Hvilket vil sige, at hele den administrative del er lukket af, sådan er det da på mit arbejde.
Men jeg trækker mig da gerne fra opgaven. :-)

avminarm>> Jeg gider ikke bruge mere tid på det nu, hvis du alligevel beslutter dig for en anden løsning. Skulle du være interesseret i en foreløbig udgave, må du lige smide en mailadresse. Det ville jo være meget rart at vide om du overhovedet kunne afvikle programmet :-)

- Mikker

tubber>> Det kan godt være du mener det er nemt, men jeg skal ud i noget med at starte helt forfra, vi har jo ikke ramt de samme object-navne f.eks.
Jeg aner ikke hvordan en .ini fil er udformet, andet end at det er en ren tekst fil når man åbner den. Derfor må jeg tvivle på hvor meget plads man egentlig sparer i forhold til den .txt fil jeg har lavet. Det er muligt jeg blot er uvidende og i det tilfælde må jeg naturligvis undskylde, at jeg spilder dyrbar server plads med dette indlæg.

Jeg håber bare, at 'avminarm' får en løsning på den opgave han stiller. Som han skriver er det blot til eget brug, blot for at lette hans daglige arbejde. personligt mener jeg ikke der er grund til at diskutere det ene fra det andet, men du er naturligvis velkommen til at komme med et løsningsforslag selv.

- Mikker

jorn : jeg vil da gerne have kildekoden :O)
smolf@venner.dk

Mikker: var også kun et forslag, et forsøg på at hjælpe......
Men jeg har desværre ikke selv tiden, da jeg sidder med mit eget projekt.......

/Tubber

>> Tubber hvordan læser du ini filen igen, har prøvet dit forslag, men kan ikke få læst ini filen ind i en combo igen !!!!!

>> avminarm jeg kan lave et program som ligger på en cd, og gemmer informationerne i en ini fil på en diskette, der skal ikke installeres filer på computeren..., kan det bruges

hyde

Jeg vil prøve at fjerne vbrun300.dll fra \window\system og se om det kan fungere fra en diskette så.  Om fortolkeren behøver at være registret tvivler jeg på, programmet er 16-bit kode og i en 3.1x foretages ikke registrering.

tubber>> kildekoden er jo ikke en .vbp men en .mak  Kun VB4 kan flytte fra 16- til 32-bit såvidt jeg ved.  Jeg har VB3 og VB5, men formen kan du flytte.  Har du VB3 eller 4 er det jo ikke noget problem, ellers skal der sysles lidt.
Jeg ser på begge dele i morgen.

M.v.h.  Jørn

Tubber>> projekt sites.zip er afsendt.
Avminarm>>  Det ser ud til at programmet kan afvikles fra diskette, også når fortolkeren 'vbrun300.dll' ikke findes på maskinen, men kun på disketten.

M.v.h.  Jørn

?? Jeg går ikke op i point, men er I taget på ferie?  Tubber kunne da godt kvittere for modtagelsen, og Avminarm kunne afvise eller godkende.
Eller stiller jeg for store forventninger?

M.v.h.  Jørn

joern: Takker og bukker for filerne :O)

Men skal jo lige være ved sin puter ikke :O)
Har lånt en min står skilt ad, så har ikke lige kunnet komme på før nu.......

Tubber>>  Ja,ja - godt ord igen.  Mangler du en reserve-PC, så har jeg nogle til salg.
http://www.jkfsoft.dk/pcsalg.htm

M.v.h. og held og lykke med 'samlingen', Jørn

Nej gør jeg ikke men takker :O)
Skal bare have samlet min igen, det er fordi dens hardware skal opgraderes....
Kan også bruge konens når hun ikke sidder der :O)
så har nok men igen mange tak :O)

ALLE>> Sorry - ,måtte tage et par fridage fra job - og min puter der hjemme har værer "i coma" i snart 3 uger, men jeg er meget interesseret i de løsninger der kan ligge på en disk.

joern>> kan du sende til post@avminmusearm.dk
mikker>> kan du sende dit forslag til (sjovt nok) post@avminmusearm.dk
hy>> desværre - intet cd rom på arbj ;o(

joern>> Takker for filen - jeg tjekker den ud i aften (kan ikke DL når jeg er på job ;-[ )

Mikker>> jeg takker for filen - men den er ikke helt funktionel (den kunne nok blive det ved tilretning)

joern>> et smart lille program - med den fikse detalje at man selv kan bestemme hvad felterne skal hedde - points til joern