Pisanje u Kolonu MySQL baze pomocu Visual Basic-a 6.0

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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 . 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.
UNAPRED HVALA!

Dopuna: 26 Maj 2010 9:29

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ako za prikaz podataka koristiš SELECT onda za upisivanje koristi INSERT.
[Link mogu videti samo ulogovani korisnici]
Pogledaj šta tu još ima zanimljivo

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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... ... 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 ...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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 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 . Š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, 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 ". Inače ovaj projekat pravim, zato što mislim da bi bilo ekstra da svaka škola ima Freeware verziju elektronskog dnevnika . Pozdrav, i mislim da bi mogli lepo da sarađujemo