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

Visual Basic i *.txt baza

[es] :: Visual Basic 6 :: Visual Basic i *.txt baza

[ Pregleda: 2897 | Odgovora: 16 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

sinisah009

Član broj: 91220
Poruke: 7
195.252.80.*



Profil

icon Visual Basic i *.txt baza28.08.2008. u 01:00 - pre 152 meseci
Trebalo bi da napravim bazu ali u txt formatu. Znaci txt fajl koji cu periodicno puniti podacima iz VB, jel imao neko iskustva sa ovim ?
 
Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
91.148.113.*



+7 Profil

icon Re: Visual Basic i *.txt baza28.08.2008. u 01:25 - pre 152 meseci
Nije neizvodljivo ... ali bolje da probas sa xml formatom
 
Odgovor na temu

sinisah009

Član broj: 91220
Poruke: 7
195.252.80.*



Profil

icon Re: Visual Basic i *.txt baza28.08.2008. u 23:56 - pre 152 meseci
Uspeo sam iz VB da upisem podatke u txt file, sad mi je problem da definisem sirinu polja u tom txt fajlu zbog kasnijeg stampanja.
Kad unosim podatke u txt-u se formira matrica koja ima sirinu polja kao najduzi element niza, kako bih mogao da definisem sirinu svakog polja???
 
Odgovor na temu

sinisah009

Član broj: 91220
Poruke: 7
195.252.80.*



Profil

icon Re: Visual Basic i *.txt baza29.08.2008. u 16:49 - pre 152 meseci
Treba da zadajem da mi VB pravi txt fajlove na osnovu datuma, ali imam malih problema jel ima neko resenje za ovo:

Private Sub Command1_Click()

Dim ime_fajla As String

ime_fajla = Format(Date, "yyyy/mm")

Open "D:\proba\" & ime_fajla & ".txt" For Append As #1

Print #1, ..............
 
Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
79.101.67.*



+41 Profil

icon Re: Visual Basic i *.txt baza29.08.2008. u 16:55 - pre 152 meseci
Pa ne mozes koristiti karakter "/" u nazivu fajla. Probaj sa Format(Date, "yyyy.mm") ili Format(Date, "yyyy-mm")
 
Odgovor na temu

sinisah009

Član broj: 91220
Poruke: 7
195.252.80.*



Profil

icon Re: Visual Basic i *.txt baza29.08.2008. u 19:40 - pre 152 meseci
Radi Thanks
 
Odgovor na temu

sinisah009

Član broj: 91220
Poruke: 7
195.252.80.*



Profil

icon Re: Visual Basic i *.txt baza29.08.2008. u 23:32 - pre 152 meseci
Kako da nateram da mi VB 6.0 uradi print preview i print nekog *.txt sa odredjene definisane lokacije ???
 
Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
79.101.177.*



+1 Profil

icon Re: Visual Basic i *.txt baza01.09.2008. u 13:27 - pre 152 meseci
Pa postavi formu i na njoj picturebox, za font postavi neki sa fixnom velicinom karaktera (Terminal, Courier New ...):

Code:


dim ff as integer
ff = freefile()

dim tmpString as string

open [ime_datoteke kao string] for input as #ff
do while not EOF(ff)
     input #ff, tmpString
     picture1.print tmpString
loop
close #ff



I imas print preview...

A kazes mu jos i:

Printer.Cls
Printer.PaintPicture picture1.picture, 0, 0, picture1.width, picture1.height, 0, 0, picture1.width, picture1.height, vbSrcCopy
Printer.EndDoc

na neki dogadjaj i dobijes sve to na stampacu...

E sad ti to sve razradi(dodaj i stampanje po stranama i sl.), imas osnovu...
 
Odgovor na temu

sinisah009

Član broj: 91220
Poruke: 7
195.252.80.*



Profil

icon Re: Visual Basic i *.txt baza02.09.2008. u 15:04 - pre 152 meseci
Ja sam vec nesto slicno radio ali sa list box-om, ali mi je bio format teksta. To mi sad radi kao print preview, imam problem kad pokrenem stampanje, izbacuje mi gresku kod: Printer.Cls ?!
Kako bih mogao da stampam list box?
 
Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
79.101.177.*



+1 Profil

icon Re: Visual Basic i *.txt baza02.09.2008. u 17:10 - pre 152 meseci
Moja greska, objekt printer uopste nema metudu Cls.

Preskoci tu liniju i radice.

Mozes da stampas i sa imeForme.PrintForm

A mozes i datareport da napravis.

A mozes i da mu kazes:
Code:

dim ff as integer
ff = freefile()

dim tmpString as string

open [ime_datoteke kao string] for input as #ff
do while not EOF(ff)
     input #ff, tmpString
     printer.print tmpString
loop
close #ff

printer.enddoc

U svakom slucaju srecno...
 
Odgovor na temu

Blue82
dipl. ecc.

Član broj: 165981
Poruke: 826
*.adsl-a-1.sezampro.yu.



+321 Profil

icon Re: Visual Basic i *.txt baza26.10.2008. u 11:59 - pre 150 meseci
Stefane moze li se u taj picture box ubaciti text pomocu twipsa a ne razmaka? Nesto kao kada stampas pa kazes printer.curentx=500:printer.curenty=2000:printer.print "TEXT"?
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.dynamic.sbb.rs.

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Visual Basic i *.txt baza26.10.2008. u 12:54 - pre 150 meseci
Pa možeš isto kao i sa printer objektom.
Code:
Picture1.CurrentX = 500
Picture1.CurrentY = 2000
Picture1.Print "TEXT"

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
 
Odgovor na temu

Blue82
dipl. ecc.

Član broj: 165981
Poruke: 826
*.adsl-4.sezampro.yu.



+321 Profil

icon Re: Visual Basic i *.txt baza26.10.2008. u 16:11 - pre 150 meseci
E odlicno, nisam jos probao ali verujem da moze, trebalo bi. Hvala puno!
 
Odgovor na temu

Blue82
dipl. ecc.

Član broj: 165981
Poruke: 826
*.adsl-4.sezampro.yu.



+321 Profil

icon Re: Visual Basic i *.txt baza26.10.2008. u 16:28 - pre 150 meseci
Code:


Private Sub Command1_Click()
Picture1.CurrentX = 500
Picture1.FontSize = 15
Picture1.Print "TEXT"
Picture1.CurrentX = 1000
Picture1.FontSize = 8
Picture1.Print "TEXT"
Printer.PaintPicture Picture1.Picture, 0, 0, Picture1.Width, Picture1.Height, 0, 0, Picture1.Width, Picture1.Height, vbSrcCopy
Printer.EndDoc
End Su

Sta ne valja? kaze Invalid picture kada se stampa. Inace print preview pokaze lepo
 
Odgovor na temu

Blue82
dipl. ecc.

Član broj: 165981
Poruke: 826
*.adsl-4.sezampro.yu.



+321 Profil

icon Re: Visual Basic i *.txt baza26.10.2008. u 17:09 - pre 150 meseci
Hm... cekaj malo razumem zasto se to desava ali...
On uopste ne konta da taj text koji dodam u picturebox pripada toj picture. Naime kada napisem kod picture2.picture=picture1.picture a prethodno sam u picture1 manuelno ubacio neku sliku u print preview pokaze mi tu ubacenu sliku i preko nje dodat TEXT ali u picture 2 nalazi se samo slika BEZ dodatog texta. Zato i izbacuje invalid picture jer mi je picturebox prazan sto se ticee slike posto je nisam manuelno ubacio i onda ne moze ni da je nadje a dodat text ne gleda kao deo slike i smatra da slike nema pa izbacuje gresku. Kako to da otklonim i odstampam?
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.dynamic.sbb.rs.

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Visual Basic i *.txt baza26.10.2008. u 18:08 - pre 150 meseci
Pa ne radi zato što svojstvo Picture sadrži bitmapu koja je učitana, ali ne i ono što si ti docrtao. Umesto Picture, koristi svojstvo Image. Takođe, trebaš da promeniš i AutoDraw svojstvo u True. Dakle, izmeni tvoj kod da izgleda ovako i trebalo bi da radi
Code:
Picture1.AutoRedraw = True
Picture1.CurrentX = 500
Picture1.FontSize = 15
Picture1.Print "TEXT"
Picture1.CurrentX = 1000
Picture1.FontSize = 8
Picture1.Print "TEXT"
Printer.PaintPicture Picture1.Image, 0, 0, Picture1.Width, Picture1.Height, 0, 0, Picture1.Width, Picture1.Height, vbSrcCopy
Printer.EndDoc

isto tako, kada prebacuješ nešto iz picturebox-a u picturebox... ako staviš
Code:
Picture1.Picture = Picture2.Picture

prebacićeš samo bitmapu koja je učitana u Picture2. Ako hoćeš da iskopiraš sve sa tekstom koji si eventualno dopisao, koristi
Code:
Picture1.Picture = Picture2.Image

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
 
Odgovor na temu

Blue82
dipl. ecc.

Član broj: 165981
Poruke: 826
*.adsl-4.sezampro.yu.



+321 Profil

icon Re: Visual Basic i *.txt baza26.10.2008. u 18:15 - pre 150 meseci
Sada radi, hvala, znaci gore je greska.
 
Odgovor na temu

[es] :: Visual Basic 6 :: Visual Basic i *.txt baza

[ Pregleda: 2897 | Odgovora: 16 ] > FB > Twit

Postavi temu Odgovori

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