MyCity :: Visual Basic

Tutorijal za pocetnike u Visual Basicu

nobody@mycity.rs (Srki94) — Thu, 19 Jun 2008 21:09:04 +0100

Evo od mene jednog tutorijala za pocetnike u vb. Objasnicu osnove i jos nesto. Nemojte nista da dodajete dok ne zavrsim.

Da krenemo od pocetka:
Osnove VB-a

Uvod u programiranje

Pod programiranjem se podrazumeva proces koji se sastoji od pripreme, razrade i pisanja programa radi re�avanja problemea pomo�u ra�unara.
Proces programiranja se realizuje kroz:
- projektovanje
- pisanje programa
- testiranje programa
- pisanje dokumentacije o programu.
Programiranje podrazumeva kreiranje, pisanje, menjanje, testiranje programa.

Program je skup zahteva upu�enih ra�unaru , uz kori��enje nekog programskog jezika.
Program jeste sintaksna jedinica koja uskla�uje pravila pojedinih programskih jezika koja je sastavljena od dekleracija i izjava , ili instrukcija potrebnih za re�avanje odre�enih
f- ja, zadataka ili problema.

Programski jezik je ve�ta�ki jezik koji se koristi za predstavljanje programa.
Ve�ta�ki jezik je jezik �ija su pravila ranije jasno ustanovljena za njegovu upotrebu.

Algoritam je grafi�ki niz potpuno definisanih pravila za re�avanje problema. Algoritam poseduje slede�a svojstva i karakteristike:
- determinisanost
- univerzalnost
- diskretnost
- invarijantnost
- odre�enost
- elasti�nost
- rezultativnost.

Visual Basic koristi sledece simbole:
-Slova engleske azbuke: A,B...X,Y,Z.
-Cifre Dekadnog brojnog sistema: 0,1,2,3,4,5,6,7,8,9
-Simbole artimetickih operacija: + - * / \ >?
- Simbole relacija: < > <= >= <> >< =
- Simbole ligickih operacija: And, or, Xor, Not
- Specijalne simbole: ?; !; "; %; $
- Sluzbene (kljucne) reci : End, If, For, Next, Then, Else, Case...

OSNOVNI TIPOVI PODATAKA

U ovom delu cu objasniti osnovne tipove podataka i njihove duzine:

Byte = 1 byte - od 0 do 255

Integer = 2 bytes - od -32.768 do 32.767

Long = 4 bytes - od -2.147.483.648 do 2.147.483.648

Single = 4 bytes - od -3.402823E+38 do 1.401298E-45 za negativne vrednosti
i od 4.94065645841247E-324 do 1.79769313486232e+308 za pozitivne vrednosti

Double = 8bytes - od -1.79769313486232e+308 do -4.94065645841247E-324 za negativne vrednosti
i od 4.94065645841247E-324 do 1.79769313486232e+308 za pozitivne vrednosti

Curency = 8 bytes - od -922,337,203,685,477.5808 do 922,337,203,685,477.5807

----------------------------------------------------------------------------------------------------------
Promenljive

Veli�ine koje mogu da imaju vrednosti razli�itih konstanti nazivaju se promenljivim veli�inama. Svaku promenljivu karakteri�u tri svojstva: ime, oblast definisanosti i teku�a vrednost.

Definisanje imena promenljive
Prilikom definisanja imena promenljive u Visual Basic- u mora se voditi ra�una o slede�em:
- da ime promenljive po�inje slovom
- da du�ina imena promenljive mo�e da bude najmanje jedan a najvi�e 255 znakova
- da ostali simboli imena promenljive mogu da budu slova, cifre i znak za podvla�enje
- ime promenljive ne sme da bude isto kao i neka slu�bena re� Visual Basic-a.

Primer:

Dobro definisana promenljiva Lose definisana promenljiva
Moj_Pas Moj.Pas
OvajDan 1Dan
Srki_94 Ja&On

----------------------------------------------------------------------------------------------------------
U VB ne koristimo iste matematicke znakove vec sledece:

Ovde je objasnjeno koji se znakovi koriste u VB:

Mnozenje u vb = * (Zvezdica)
Stepenovanje u vb = ^
Sabiranje u vb = +
Oduzimanje u vb = -
Vece, Manje = >; < a za jednako >= ; <= itd.

Pored ovog bi trebalo da znate da u vb postoje jos 2 nacina deljenja : 1. Celobrojno; 2. Deljenje sa ostatkom

1. Celobrojno deljenje
Za celobrojno deljenje koristimo znak "\"
Primer:

32 \ 6 = 5 (int)

2. Deljenje sa ostatkom
Za odredjivanje ostatka prilikom deljenja se koristi "Mod"
Primer:
32 Mod 6 = 2

----------------------------------------------------------------------------------------------------------
Uslovi : IF....Then, ....

Uslovi u vb su mnogo korisni, mozete da ih napisete na 3 nacina

1. Nacin: IF... Then ....
Primer 1. : IF Srki = True Then Label1.Visible = False

2. Nacin IF... Then
blok naredbi
End if
Primer 2.:

 If Srki = True Then


Label1.Visible = False


Label2.Visible = True


End if

3. Nacin If... Then
Blok Naredbi
Else
Blok Naredbi
End if

Primer 3.:

 If Srki.Visible = true then


Label1.visible = False


Label2.visible = True


Else


Label1.Visible = True


Label2.Visible = False


End if

--------------------------------------------------
Objasnjenje

1. Nacin
U ovom nacinu pisemo samo jednu liniju koda bez End If

2. Nacin
Primetite da u ovom nacinu na kraju stoji sluzbena rec End IF
End if koristite samo ako imate blok naredbi. Ovaj nacin je koristan
ako pod jednim uslovom zelite da ucinite vise promena.
Ovaj nacin je prakticniji od prvog zar nije lakse ovako nego pojedinacno da pisete kao u 1 primeru

3. Nacin
Primetite da u ovom nacinu stoji sluzbena rec Else.
Ona znaci Drugacije ili bolje receno ako uslov nije ispunjen onda
se desava to sto ste napisali ispod Else.
Ovaj nacin je takodje praktican kao i drugi nacin.
---------------------------------------------------------------------------------------------------
I zasada jos ovo pa cu posle nastaviti:

Pravila deklarisanja promenljivih
Promenljivima se u Visual Basic-u dodeljuju podaci. Zato bi trebalo da se program Visual Basic- a obavesti o tome kakve �e teku�e vrednosti promenljiva mo�i da dobija u programu. Dakle, treba deklarisati promenljive pre njihovog kori��enja dodeljuju�i im ime i tip podatka.
U jeziku Visual Basic postoji onoliko tipova promenljivih koliko ima tipova podatka. Postupak prijavljivanja vrste promenljive naziva se deklarisanje promenljive.
Dozvoljena su dva na�ina deklarisanja promenljive: eksplicitni i implicitni.
Eksplicitni na�in deklarisanja promenljive koristi slu�benu re� Dim. Ova naredba izgleda ovako:

Dim ImePromenljive As Vrsta promenljive, ImePromenljive As Vrsta promenljive...

Za sada toliko kad imam vremena "doteracu" tutorijal da izgleda lepo.
Poz
Autor : Srki'94

Nastavak Tutoriala

Primer:

Dim Srki as Integer
Dim Milan as Boolean
Dim Broj_Soba as Double

Boolean:

Boolean je jednostavno da ili ne , True ili Falsh evo primera kog mozete iskoristiti :

Dim Broj as Boolean

Private Sub Command1_Click ()


MsgBox "Sada ce se u Label1 ispisati "Ovaj tekst vidite zahvaljujuci Booleanu" zahvaljujuci Booleanu","VbOkOnly, "Boolean"


Broj = True 


' Primetite da cim ste ispisali "=" pojavilo se True i Falsh to je zato sto smo deklarisali "Broj" kao Boolean





' Ovo je kod za proveru da li je Broj = True ili Falsh


If Broj = True Then Label1.caption = "Ovaj tekst vidite zahvaljujuci Booleanu" 


End Sub

Na formu stavite jedno dugme i jedan Label i prekopirajte kod.
Primetite da se tekst ne bi ispisao da je Broj = Falshe
Nadam se da ste shvatili boolean Evo i primera.

[Link mogu videti samo ulogovani korisnici]

Za sada je dovoljno teorije "bacimo se" na neki primer.
Uradicemo par primera uploadovacu svaki tako da mozete da pratite:

Ne znam zasto ali ovaj primer rade svi pocetnici pa sam mislio da krenemo od njega.

Program Zdravo Svete:

Potrebno: Na formu kreirajte 2 dugmeta, i jedan Tekst Box

Kada kreirate ovo sve, kliknite na Command1 i desno u Propertis pronadjite svojstvo Caption. Tu pise Command1, obrisite to i napisite "Ispisi".

Kliknite na Command2 i ponovo pronadjite svojstvo Caption pa upisite izadji.

Sad bi trebalo da vam na jednom dugmetu pise Ispisi a na drugom Izadji.

Svojstvo caption je Ime objekta koje ce korisnik da vidi, NEMOJTE mesati Caption i Name, jer je svojstvo Name ono koje vi koristite u programiranju posle cu pokazati na primeru, vratimo se nasem programu.

Sad kliknite dvaput na dugme Ispisi. Otvorio vam se nov prozor gde pisete kod.

Ispisite :

Text1.Text = "Zdravo Svete"

zatim kliknite dvaput na dugme izadji

Ovde mozete kotistiti vise nacina da prekinete rad programa.
Ja koristim Unload (ime Forme)
a mozete koristiti i End, Stop,...

ispisite :

Unload Form1

To sve treba da izgleda ovako:

Private Sub Command1_Click()


Text1.Text = "Zdravo Svete"


End Sub





Private Sub Command2_Click()


Unload Form1


End Sub

Upravo ste zavrsili svoju prvu aplikaciju.

Primer: [Link mogu videti samo ulogovani korisnici]

Da objasnim ono sa Name dakle gore pise Private Sub Command1_Click() a ne Private Sub Ispisi_Click() a da ste promenili svojstvo name u Ispisi onda bi pisalo Private Sub Ispisi_Click()
Znaci kad promenite svojstvo name onda menjate naziv, IME dugmeta i to korisnik ne vidi. SAVET: Nemojte da menjate Imena u sred izrade jer ce te morati da menjate kod najbolje je da to uradite u pocetku. Prvo isplanirajte pa onda radite.

Izrada Digitalnog Casovnika

Program : Digitalni Casovnik

Potrebno Na formu stavite 2 Label i Jedan Timer

Prepisite kod:

Private Sub Form_Load()


Timer1.Interval = 500


End Sub





Private Sub Timer1_Timer()


Label1.Caption = Str$(Time)


Label2.Caption = Str$(Date)


End Sub

Pritisnite F5 i primetite da vam se u label1 pojavilo vreme a u label 2 pojavo datum.

Da pojasnim ovo Str$ ono pretvara Date i Tame u Broj. Mozete koristiti u raznim situacijama kao da String prevedete u Broj i tako dalje. Znaci sve sto ova aplikacija radi jeste "uzima" datum i vreme i prebacuje ga u broj.

Mozete se malo poigrati, npr Evo kako sam se ja poigrao napravio sam ovaj projekat odavno.
Ja sam dodao Skinove u program. To je lako za skinove samo uzmite Masku tj Sliku mozete i sami da napravite evo kako sam ja uradio moj digitalni casovnik:

[Link mogu videti samo ulogovani korisnici]

Postavite pitanja u temi koju je rqdrajko postavio i ja cu da dopunim tutor.
Poz Do seldeceg dela tutora u kome ucimo malo ozbiljnije stvari

Autor: Srki'94

Ovaj tutorijal je zasticen CC licencom
[Link mogu videti samo ulogovani korisnici]
[Link mogu videti samo ulogovani korisnici]

Zastita programa od kopiranja

nobody@mycity.rs (rgdrajko) — Sun, 23 Sep 2007 02:21:59 +0100

Evo kompletan program u Visual basicu za zastitu programa od kopiranja, uradjen preko XOR komande koja sifrira serijski broj diska sa nekim slovima npr . "rgdrajko". Ovo je sastavni deo programa "Autotestovi za polaganje vozackog ispita" ciji sam deo koda dao na ovom forumu.

Deo koda iz prikljucenog zip fajla sa kompletnim kodom:

Public Sub SifriranjeSerijskogBrojaCD()


Dim sastserijskibrojCDdiskaod10cifara As String


Dim sifraod10cifara As String


Dim rezultat As Integer


Dim rezultatstring As String


Dim sifriraniseriskibrojCDdiskaodpreko20cifara As String





On Error GoTo greska


'slovoCD = Left(App.Path, 1)


slovoCD = Left(txtDisk.Text, 1)





decimalniserijskibrojCDdiska = GetSerialNumber(slovoCD + ":")


lblDecSerijskiBrojDiska.Caption = decimalniserijskibrojCDdiska





heksadecimalniserijskibrojCDdiska = Hex(decimalniserijskibrojCDdiska)


lblHexSerijskiBrojDiska.Caption = heksadecimalniserijskibrojCDdiska





sastserijskibrojCDdiskaod10cifara = heksadecimalniserijskibrojCDdiska & Left(decimalniserijskibrojCDdiska, 2)


lblsastserijskibrojCDdiskaod10cifara.Caption = sastserijskibrojCDdiskaod10cifara





sifraod10cifara = Chr(vbKeyR) & Chr(vbKeyG) & Chr(vbKeyD) & Chr(vbKeyR) & Chr(vbKeyA) & Chr(vbKeyJ) & Chr(vbKeyK) & Chr(vbKeyO) & Chr(vbKeyG) & Chr(vbKeyO)


lblSifraod10znakova.Caption = sifraod10cifara





'Sifriranje seriskog broja diska sa sifraod10cifara


sifriraniseriskibrojCDdiskaodpreko20cifara = ""


For n = 1 To 10


rezultat = Asc(Mid(sastserijskibrojCDdiskaod10cifara, n, 1)) Xor Asc(Mid(sifraod10cifara, n, 1))


rezultatstring = Hex(rezultat)


If Len(rezultatstring) < 2 Then


rezultatstring = "0" & Hex(rezultat)


End If


sifriraniseriskibrojCDdiskaodpreko20cifara = sifriraniseriskibrojCDdiskaodpreko20cifara & rezultat


Next n


lblsifriraniseriskibrojCDdiskaodpreko20cifara.Capt ion = sifriraniseriskibrojCDdiskaodpreko20cifara


Text1.Text = Mid(sifriraniseriskibrojCDdiskaodpreko20cifara, 1, 7)


Text2.Text = Mid(sifriraniseriskibrojCDdiskaodpreko20cifara, 8, 7)


Text3.Text = Mid(sifriraniseriskibrojCDdiskaodpreko20cifara, 15, 7)


Text4.Text = Mid(sifriraniseriskibrojCDdiskaodpreko20cifara, 22)





Exit Sub





greska:


lblDecSerijskiBrojDiska.Caption = ""


lblHexSerijskiBrojDiska.Caption = ""


lblsastserijskibrojCDdiskaod10cifara.Caption = ""


lblsifriraniseriskibrojCDdiskaodpreko20cifara.Capt ion = ""


Text1.Text = ""


Text2.Text = ""


Text3.Text = ""


Text4.Text = ""


Exit Sub


End Sub

Kompletan izvorni kod:
[Link mogu videti samo ulogovani korisnici]

Sadrzaj : Vb za pocetnike, poznavaoce...

nobody@mycity.rs (biser-x) — Mon, 07 May 2007 23:54:49 +0100

Dozvolite samo jedno pokretanje vase aplikacije
Diskonektovanje sa interneta (provereno na dial-up i adsl konekciji)
Prikazi/sakri TaskBar

Shell pozivi

Eject CD

Eject CD-kraci nacin

Xp style za vb aplikacije

CDEject-project

Digitalni Casovnik

Kod za proveru da li ste na net-u (konektovani)
Zatvara sve prozore - logoff
Ispisuje username korisnika

Context menu

Iz komande na mc

Iz komande na mc 2
Malo matematickih funkcija

Onemoguci te "X" na formi

Baci fajl u djubar!!!!

Register/unregister ActiveX
Isprazni "djubar"

Tutorijal (pravljenje .exe fajla iz VB-a) by Krckoorascic

Rad sa stampacima

Prikaz slike sa kamere
Loto generator

Izlaz na Escape
Restar, Shut Down i Log Off
Restart #2
Kopiranje fajlova
Brisanje fajlova

Automatizacije

Kod za splash screen

Najjednostavniji primer za sat

Custom MsgBox
KeySpy
Ispisi putanju fajla koji je 'spusten' u formu (Drag and Drop)
MsgBox koji se sam gasi
Formatiranje flopija

Startup with win ; source

Downloadiranje fajla sa Interneta

Sakrivanje forme
Systray ikonica

VB Shaped Form Creator

Kako pomocu VB-a sakriti i prikazati TaskBar?
Kako pomocu VB-a promeniti pozadinu Desktopa?
Kako pozvati office asistenta i kontrolisati ga?
Kako otvoriti i zatvoriti primarni cd uredjaj pomocu VB-a?
kako iskljuciti kompjuter?
Kako se izlogovati iz Windowsa?
Kako restartovati kompjutrer?
Kako sakriti kursor?

Proverava tacnosti IP adrese
Forma ostaje na starom mestu
Sifrovanje texta
Kako registrovati extenzije za vas program?

Sta je modul?

Izracunavanje duzine linije

Forma koja eksplodira

Klase i objekti-Clanak o klasama i objektima, Kolekcija ActiveX control(OCX), Rotacija kvadra u 3D

Rotacija kocke

Trim funkcija, Beep i Form order

Pretrazivanje liste

Pomeranje kursora

Visual Basic 2005 express

nobody@mycity.rs (Dejan123) — Sat, 25 Feb 2006 19:09:29 +0100

Visually design Windows applications

Easily design great-looking and easy-to-use applications using an intuitive, drag-and-drop interface designer.

Built-in support for Windows XP Themes lets you easily create applications with a Windows XP look and feel.

Over 30 new controls simplify development.

In-place menu editor enables quick and easy creation of main menus and right-click context menus.

Interactive development environment

�My� namespace provides intuitive access to common functions�working with files, accessing the registry, and utilizing applications settings and resources.

Code colorization, syntax checking, and IntelliSense provide an intuitive development experience.

AutoCorrect can suggest and apply fixes for more than 230 common programming errors.

Don�t write that code yourself! Visual Basic Express can write it for you with over 400 built-in IntelliSense code snippets that provide templates for common coding tasks.

Great for data

�Drag and drop� data from your database onto your Windows application to easily create fully-functional data-driven applications.

Create data-enabled applications using SQL Server 2005 Express.

Visually design queries and databases using the built-in database design tools.

Download
Size: 35-70 MB per Express Edition
Free

ApiViewer 2004

nobody@mycity.rs (Dejan123) — Sun, 13 Nov 2005 19:53:06 +0100

Mnooogo bolji od standardnog api viewera koji ide uz vb6
ApiViewer2004

Vb za pocetnike, poznavaoce,profesionalce -primeri i trikovi

nobody@mycity.rs (Dejan123) — Mon, 24 Oct 2005 17:53:34 +0100

Ovaj podforum je mnooogo zapusten, pa sam odlucio da ga malo ozivim.
Ovde se mogu stavljati svi trikovi i source kodovi ( kako uraditi/dobiti nesto...) ...
Ja cu poceti sa nekim primerima:

1.Dozvolite samo jedno pokretanje vase aplikacije:

Private Sub Form_Load()





If App.PrevInstance = True Then  Call MsgBox("This program is already running!", vbExclamation)





Unload Me





End Sub

2.Diskonektovanje sa interneta ( probao sam na dial-up i adsl konekciji ):

Stavite jedan modul u projekat i jedno komandno dugme u formu

Ovo ide u modul:

Public Const RAS_MAXENTRYNAME As Integer = 256





Public Const RAS_MAXDEVICETYPE As Integer = 16


Public Const RAS_MAXDEVICENAME As Integer = 128


Public Const RAS_RASCONNSIZE As Integer = 412


Public Const ERROR_SUCCESS = 0&


Public Type RasEntryName





dwSize As Long


szEntryName(RAS_MAXENTRYNAME) As Byte





End Type





Public Type RasConn





dwSize As Long


hRasConn As Long





szEntryName(RAS_MAXENTRYNAME) As Byte


szDeviceType(RAS_MAXDEVICETYPE) As Byte


szDeviceName(RAS_MAXDEVICENAME) As Byte





End Type





Public Declare Function RasEnumConnections Lib "rasapi32.DLL" _





Alias "RasEnumConnectionsA" (lpRasConn As Any, lpcb As Long, _


lpcConnections As Long) As Long





Public Declare Function RasHangUp Lib "rasapi32.DLL" Alias _





"RasHangUpA" (ByVal hRasConn As Long) As Long





Public gstrISPName As String


Public ReturnCode As Long

A ovo u formu:

Public Function ByteToString(bytString() As Byte) As String





Dim I As Integer


ByteToString = ""


I = 0


While bytString(I) = 0&


ByteToString = ByteToString & Chr(bytString(I))


I = I + 1


Wend





End Function





Private Sub Command1_Click()





Dim I As Long


Dim lpRasConn(255) As RasConn


Dim lpcb As Long


Dim lpcConnections As Long


Dim hRasConn As Long





lpRasConn(0).dwSize = RAS_RASCONNSIZE





lpcb = RAS_MAXENTRYNAME * lpRasConn(0).dwSize





lpcConnections = 0





ReturnCode = RasEnumConnections(lpRasConn(0), lpcb, lpcConnections)





If ReturnCode = ERROR_SUCCESS Then





For I = 0 To lpcConnections - 1





If Trim(ByteToString(lpRasConn(I).szEntryName)) = Trim(gstrISPName) Then





hRasConn = lpRasConn(I).hRasConn


ReturnCode = RasHangUp(ByVal hRasConn)





End If


Next I


End If


End Sub

3.Prikazi/sakri TaskBar:

Stavite modul u projekat i 2 komandna dugmeta u formu:

Ovo ide u modul:

Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _


ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _


ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long


Declare Function FindWindow Lib "user32" Alias "FindWindowA" _


(ByVal lpClassName As String, ByVal lpWindowName As String) As Long


Public Const SWP_HIDEWINDOW = &H80


Public Const SWP_SHOWWINDOW = &H40

A ovo u formu:

Private Sub Command1_Click()





hwnd1 = FindWindow("Shell_traywnd", "")


Call SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)





End Sub





 





Private Sub Command2_Click()





hwnd1 = FindWindow("Shell_traywnd", "")


Call SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)





End Sub

To je to za sad ( mozda ovo nije bas prikladno za pocetnike,ali bice jos trikova), vise nemam vremena, voleo bih kad bi jos neko ubacio neki trik dok se ja ne vratim.

mz tools 3 for vb 6 iskoristite vb.....

nobody@mycity.rs (Brksi) — Thu, 13 Oct 2005 21:22:56 +0100

Program mz tools 3 for vb 6 dodaje toolbar. Prosirije mogucnosti vb-a:
Privatan klip board sa do cetri razlicite kopije
Umetanje tamplateova kodova koje cesto koristite
Zatvaranje svih prozora (ovo je korisno u programima sa puno formi) itd.
Program je basplatan i veoma koristan

Link

[Link mogu videti samo ulogovani korisnici]

Visual Basic Access konekcija

nobody@mycity.rs (snoop) — Mon, 28 Feb 2005 19:32:41 +0100

ne znam kako sam ovo uspeo da propustim, a da ne napisem. no sada ispravljam gresku i postavljam to.

[url=https://www.mycity.rs/must-login.png (VB6)

C# verzija

Za pocetnike kako koristiti vb ...

nobody@mycity.rs (Brksi) — Wed, 23 Feb 2005 20:37:12 +0100

[Link mogu videti samo ulogovani korisnici]

Raznorazne funkcije u vb mozda nekom zatreba...

nobody@mycity.rs (Brksi) — Thu, 17 Feb 2005 12:27:57 +0100

solair.eunet.rs/~brksi/VBFunctions.zip

Izvrsavanje SQL upita nad bazom koriscenjem ADO komponente

nobody@mycity.rs (snoop) — Sun, 23 Jan 2005 03:12:47 +0100

ako mene pitate, vise volim da pristupam bazi preko ADO (ActiveX Data Objects) komponenata zato sto imam vise slobode nego u DAO komponentama gde vec imam ugradjene opcije za AddNew, Delete, Update...
mozda i moze i preko ovoga da se izvrsavaju SQL upiti, ali ja nisam nasao i mislim da bazu (Access sa passwordom) sa DAO ne mozete da otvorite...

da bi sve ovo bilo moguce morate napraviti dva objekta.
jedan je Recordset, a drugi Connection




<%


Dim rs, conn, sql


Set rs = Server.CreateObject("ADODB.Recordset")


Set conn = Server.CreateObject("ADODB.Connection")


%>

kada smo napravili ta dva objekta, sada nam treba Connection string kako bi se mogli povezati na bazu podataka. napisacu Connection string za Access i za mySQL server....

TIP: ove Connection string-ove mozete staviti u jedan zaseban fajl i include-ovati ih po potrebi komandom 

mySQL




<%


conn.open "Driver={MySQL ODBC 3.51 Driver}; Server=localhost; Database=ime_baze; UID=korisnicko_ime; Password=password"


%>

Access (vec je bilo, ali nema veze )




<%


conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("ime_baze.mdb") & ";Password=password"


%>

kada ste napravili ove Connection string-ove, sada vec mozete da idete dalje.

ako zelite da izvrsite SQL upit nad bazom koja ne vraca nikakav rezultat (kao SELECT upit)... izvrsavanje upita mozete ovako izvesti:




<%


conn.Execute("SELECT * FROM ime_tabele WHERE id=14;")


%>

ako SQL upit vraca vrednost, mozete na ovaj nacin:




<%


Set rs = conn.Execute("SELECT * FROM ime_tabele WHERE id=14;")


%>

ili




<%


rs.Open "SELECT * FROM ime_tabele WHERE id=14;", conn


%>

ako zelite da ispisete sve zapise, koristite Do While petlju

pre ovoga treba da izvrsite SQL upit na jedan od nacina koje sam naveo




<%


Do NOT While rs.EOF





rs.MoveNext


Loop


%>

kada zelite da proverite da li je SQL upit vratio nesto iz baze, ovaj kod sve resava




<%


If rs.EOF Then


Response.Write("SQL upit nije, aman bas nista, vratio! :)")


End If


%>

ako pronadjete bugove, slobodno ih prijavite... moze biti da ih ima
i najbolji grese

korisno za opcije programa

nobody@mycity.rs (snoop) — Mon, 04 Oct 2004 03:39:18 +0100

Private Type opt
opcija1 As String
opcija2 As String
opcija3 As Integer
End Type

Private opcije As opt

Private Sub BinWrite()
'// pre upisivanja u fajl moraju se postaviti vrednosti
opcije.opcija1 = "Vrednost necega!"
opcije.opcija2 = "Vrednost necega drugog!"
opcije.opcija3 = 14

On Error Resume Next
Open App.Path & "\opcije.ini" For Binary Access Write As #1
Put #1, 14, opcije '// ovde moze da bude bilo koji broj
Close #1
End Sub

Private Sub BinRead()
On Error Resume Next
Open App.Path & "\opcije.ini" For Binary Access Read As #1
Get #1, 14, opcije '// ovde isto moze da bude bilo koji broj, ali se mora podudarati sa onim u Put
Close #1
End Sub

Private Sub Command1_Click()
'// snimi u fajl
BinWrite
End Sub

Private Sub Command2_Click()
'// citaj iz fajla
BinRead
MsgBox opcije.opcija1 & vbCrLf & opcije.opcija2 & vbCrLf & opcije.opcija3
End Sub

razlika u ovome je sto kada se fajl otvori u notepad-u ne moze tako lako da se procita. otvorite pa cete videti.
zgodno je i za save za igre, a mozete i dodatno da kriptujete (naravno vasim ili necijim drugim algoritmom)

Tutorial: Kako napraviti ActiveX DLL

nobody@mycity.rs (snoop) — Thu, 12 Aug 2004 17:40:27 +0100

DLLovi sluse kao dinamicke biblioteke koje programi pozivaju kada im je potrebna neka f-ja ili procedura i time smanjuju velicinu .exe fajla... isto tako ako radite u timu od nekoliko ljudi mozete da napisete DLL i drugi to da koriste, a da ne moraju da se bakcu oko celog koda za odredjeni zadatak nego jednostvano ukljuce DLL u projekat i koriste f-je i procedure iz DLLa...

mozete i da zastitite vas kod na taj nacin, posto mozete samo da izvrsavate f-je i procedure, ali nikako ne mozete da vidite kod...

elem, da mi krenemo sa tutorialom...

Pokrenite VisualBasic i izaberite ActiveX DLL kao vas projekat i stisnite na Open.

Otvorice vam se prozor Class1 koji pretstavlja klase koje ce vas dll da sadrzi... u jednom DLLu mozete imati klasa koliko hocete...

Pre nego sto pocnemo sa pisanjem f-ja i procedura moramo da definisemo kako ce da se zove klasa i kako ce se zvati projekat i kako ce biti prikazan.

Da bi promenili naziv projekta: Project > Project1 Properties >...

Upisite ime projekta kako zelite da se zove (ja sam stavio ActiveXDLL). Predjite na odeljak Make i tamo u polje Title pod grupom Application upisite ime projekta i kliknite na OK.

Kada ste to uradili upisite ime klase u koju cete upisivati f-je i procedure. Mozete da pravite koliko god zelite klasa, ali svaka klasa mora drukcije da se zove.

Sa strane, u Propertiesu klase u polju Name upisite npr. brStuff.

Sada cemo poceti sa pisanjem f-ja i procedura koje ce se nalaziti u ActiveX DLLu. Kao sto mozda znate, mozete da deklarisete lokalne i globalne promenljive (varijable). Sve ovo je isto kao da pisete neku proceduru ili f-ju unutar nekog standardnog .EXE projekta u Visual Basicu.

Napravicemo jednu f-ju koja ce izracunati dva broja. Nije korisna puno, ali cisto da vidimo kako se radi sa .dll-ovima.

Public Function saberi(jedan As Integer, dva As Integer) As Integer
saberi = jedan + dva
End Function

Kada ste zavrsili pisanje svih potrebnih f-ja i procedura onda mozete da predjete na kompajliranje klase ili klasa.

Kompajliranje se vrsi kao i svaki drugi projekat koji se radi u Visual Basicu. Znaci File > Make brStuff.dll. Otvorice vam se prozor gde vas pita gde cete da snimite vas kompajliran DLL.

Kada ste ovaj deo zavrsili, mozemo da predjemo na spajanje DLLa i EXE projekta.

Napravite standardni EXE Projekat i potom kliknite na OK.

Otvara vam se prazna forma. Sada moramo da ukljucimo novi dll. Idite na Project > References > Kliknite na Browse... i pronadjite ActiveX DLL koji ste upravo kompajlirali.

Sada ste ukljucili DLL u vas projekat i morate sada da napravite istancu objekta tj. da ga deklarisete kako bi ga mogli koristiti.

Dupli klik na formu i u padajucem meniju Form izaberite General.

Sada napisite kao bi deklarisali dll

Dim br As New ActiveXDLL.brStuff

Primerite da je ActiveXDLL ime projekta koji smo zadali jos na pocetku, a brStuff je ime jedne klase koju imamo u DLLu

Dodajte jedan TextBox i jedan CommandButton u projekat iz palete alatki.

Dupli klik na CommandButton i tu ubacite sledeci kod

Text1.Text = br.saberi (12,14)

Kod treba ovako da izgleda:

Private Sub CommandButton_Click()
Text1.Text = br.saberi (12,14)
End Sub

primeticete kada budete napisali br. da ce se otvoriti dropdown menu sa spisakom svih f-ja i procedura koje imate u instanciranoj klasi (u ovom slucaju samo saberi).

Sada samo pokrenite program i vidite da li radi.

U sledecem broju "ADO & Konekcija prema Access bazi" u izdanju Mikro knjige... ovaj u mom izdanju

Preuzeto iz mog .pdf tutorijala "Kako napraviti ActiveX DLL"

VB Sajtovi

nobody@mycity.rs (VB) — Wed, 09 Jun 2004 21:10:32 +0100

Za VB6 i VB.Net Programere Slede Najbolji Sajtovi Sa Neta :

[Link mogu videti samo ulogovani korisnici]

[Link mogu videti samo ulogovani korisnici]

[Link mogu videti samo ulogovani korisnici]

[Link mogu videti samo ulogovani korisnici]

[Link mogu videti samo ulogovani korisnici]

[Link mogu videti samo ulogovani korisnici]

[Link mogu videti samo ulogovani korisnici]

[Link mogu videti samo ulogovani korisnici]

[Link mogu videti samo ulogovani korisnici]

[Link mogu videti samo ulogovani korisnici]

[Link mogu videti samo ulogovani korisnici]

[Link mogu videti samo ulogovani korisnici]

[Link mogu videti samo ulogovani korisnici]

[Link mogu videti samo ulogovani korisnici]

[Link mogu videti samo ulogovani korisnici]