Pisanje u Kolonu MySQL baze pomocu Visual Basic-a 6.0

Pisanje u Kolonu MySQL baze pomocu Visual Basic-a 6.0

offline
  • Marko Radukin
  • Mikro-X
  • Pridružio: 21 Nov 2008
  • Poruke: 29
  • Gde živiš: Novi Sad

Napisano: 06 Maj 2010 10:12

Pozdrav svima...
Poceo sam da pravim program u vb6, i pola sam zavrsio. Taj program izgleda kao dnevnik, i namestio sam Login formu, i formu u kojoj pisu podatci i ocene ucenika. Taj deo je vrlo uspesan, i funkcionise Smile. Inace da napomenem, radim sa MySQL bazom podataka, koja je trenutno na localhost-u. E sada, hocu da napravim da mogu i da pisem u bazu, tj. da dodam ocene. trazio sam po netu, ali bezuspesno, a posto predpostavljam da je to izvodljivo, molio bih vas da mi objasnite kako to da odradim, ili da mi date taj deo koda.
Evo i kodovi koje sam koristio...

Form1...
Private Sub Form_Load() MySQL.Server = "localhost" MySQL.Username = "root" MySQL.Password = "" MySQL.Database = "login" MySQL.Connect End Sub Private Sub Form_Terminate() MySQL.CloseConnection End Sub

Command Button1...
Private Sub Command1_Click() Dim player As Variant MySQL.Query ("select * from ocene where name=" & VBA.Chr(34) & email.Text & VBA.Chr(34) & " and pass=" & VBA.Chr(34) & pass.Text & VBA.Chr(34)) MySQL.Fetch_Array (MySQL.Last_Query) player = MySQL.Array_Query Unload Me Form3.Show Form2.Text1.Text = player(4) Form2.Text2.Text = player(5) Form2.Text3.Text = player(6) Form2.Text4.Text = player(7) Form2.Text5.Text = player(8) Form2.Text6.Text = player(9) Form2.Text7.Text = player(10) Form2.Text8.Text = player(11) Form2.Text9.Text = player(12) Form2.Text10.Text = player(13) Form2.Text11.Text = player(14) Form2.Text12.Text = player(15) Form2.Text13.Text = player(16) Form2.Text14.Text = player(17) End Sub

Module MySQL.bas...
Private Mysql_Connection As New ADODB.Connection Private rs As New ADODB.Recordset Public Server As String Public Username As String Public Password As String Public Database As String Public Last_Query As String Public Array_Query As Variant Function Connect() As Boolean  Connect = True    On Error GoTo Err      If Mysql_Connection.State = adStateOpen Then Mysql_Connection.Close          Mysql_Connection.Open "driver={MySQL ODBC 3.51 Driver};server=" & Server & ";uid=" & Username & ";pwd=" & Password & ";database=" + Database  Exit Function   Err:  Connect = False End Function Function Query(SQL As String) As Boolean On Error Resume Next     With rs         rs.Open SQL, Mysql_Connection         MySQL.Last_Query = rs.GetString         rs.Close     End With End Function Function Fetch_Array(STR As String) As Boolean     MySQL.Array_Query = Split(STR, vbTab) End Function Function CloseConnection() 'On Error Resume Next  Mysql_Connection.Close End Function

To je to od kodova, a u drugoj formi imam samo textbox-ove u koje se ispisuju podatci iz kodova za Command Button. Iskreno se nadam da ce te mi pomoci oko ovoga, zato sto mi je to vrlo vazan projekat. Wink
UNAPRED HVALA! Cool

Dopuna: 26 Maj 2010 9:29

Da li ovo stvarno niko ne zna???? Meni ovo stvarno treba Wink



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 15 Maj 2006
  • Poruke: 333
  • Gde živiš: Babušnica

Ako za prikaz podataka koristiš SELECT onda za upisivanje koristi INSERT.
http://www.w3schools.com/sql/sql_insert.asp
Pogledaj šta tu još ima zanimljivo Smile



offline
  • Marko Radukin
  • Mikro-X
  • Pridružio: 21 Nov 2008
  • Poruke: 29
  • Gde živiš: Novi Sad

E, hvala puno, probacu, pa javim sta sam uradio.

offline
  • Nemanja
  • Web Designer and Developer
  • Pridružio: 24 Jan 2007
  • Poruke: 266

jesi uspeo sa ovim kodom??? Ja hocu da odradim program za prijemne ispite iz srpskog jezika, nesto kao testovi ali i vezbanja, ali hocu da imam update svake godine sa novim pitanjima i odgovorima, pa sam mislio da to odradim preko mySQL-a... Smile... Takodje sam nesto razmisljao o zakacivanju Access baze na ftp, pa on onda direktno da je skine i zameni vec postojecom... Ali to cemo tek da vidimo, imam jos do pocetka sledece godine da razvijam ovaj program Smile...

offline
  • Marko Radukin
  • Mikro-X
  • Pridružio: 21 Nov 2008
  • Poruke: 29
  • Gde živiš: Novi Sad

Kao prvo, izvinjavam se što me nije bilo ovako dugu. E sad, pokušavao sam sa komandom INSERT, ali nikako nisam uspeo da dobijem to što mi treba, odnosno nije bilo rezultata. Ja ustvari hocu da to izgleda nekako ovako, naime, treba da ima jedan TextBox i jedan CommandButton. Princip rada je sledeci, ali jako prost Very Happy naprimer, upisem u txtbox broj 21 i kada stisnem na button, da mi se konektuje na baz i u zadatu kolonu napiše br. 21. Predpostavljam da shvataš o čemu se radi. Ja sam napravio klijent za izčitavanje ocena, on radi savršeno, jedino je problem što ocene moram da unosim direktno u bazu, a inče pokušavam da napravim taj klijent za upisivanje ocena u bazu, i time bih olakšao posao svima, jedno 1000 puta Smile. Što se tiče simulacije prijemnog za srpski, jako mi se sviđa ideja, samo je piši propalo, problem je u tome što se prijemni ispit ukida ove godine, a sledeće godine biće polaganje male mature... Ako imaš Skype, dodaj me za prijatelje, pa da se ispričamo na tenane, i možda se dogovorimo za neki koristan zajednički projekat, Smile moj skype name je: kima123411. Ako nemaš Skype, dodaj me na Facebook-u, ime: Marko Radukin. Možda ti možeš da mi pomogneš oko tog koda, ili nešto zajedno da "Sklepamo Very Happy". Inače ovaj projekat pravim, zato što mislim da bi bilo ekstra da svaka škola ima Freeware verziju elektronskog dnevnika Smile. Pozdrav, i mislim da bi mogli lepo da sarađujemo Smile

Ko je trenutno na forumu
 

Ukupno su 528 korisnika na forumu :: 7 registrovanih, 5 sakrivenih i 516 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: Dorcolac, krkalon, milenko crazy north, samsung, voja64, zlaya011, zziko