[ elmagio @ 02.08.2006. 08:40 ] @


Počeo sam prelaziti na VB.NET ali sam zapeo odmah na početku. Pa me zanima jedan jednostavni primjer za unos u MYSQL bazu. Tj. zanima me kako unijeti neke podatke koje unesem u textbox1, textbox2, textbox3 u bazu artikl šifra,naziv, kolicina
[ sale83 @ 02.08.2006. 13:08 ] @
Pa ovako to radis:

Code:

Imports MySql.Data.MySqlClient




Code:



        Dim conn As New MySqlConnection
        Dim myCommand As New MySqlCommand

        conn.ConnectionString = myConnString

        myCommand.Connection = conn
        myCommand.CommandText = "INSERT INTO event(sifra, naziv, kolicina)" _
         & "VALUES(?sifra, ?naziv, ?kolicina)"

        Dim sifra As String = TextBox1.Text
        Dim naziv As String = TextBox2.Text
        Dim kolicina As Integer = TextBox3.Text

        myCommand.Parameters.Add("?sifra", sifra)
        myCommand.Parameters.Add("?naziv", naziv)
        myCommand.Parameters.Add("?kolicina", kolicina)

        Try
            conn.Open()
            myCommand.ExecuteNonQuery()
        Catch myerror As MySqlException
            MsgBox("Error: " & myerror.Message)
        End Try

        cmdRefresh.PerformClick()




Poz
sale
[ elmagio @ 02.08.2006. 19:06 ] @


Zahvaljujem sale i zanima me šta ti znači ovaj dio koda :

cmdRefresh.PerformClick()

i još nešto kako mogu u datagrid učitati podatke iz baze, Ovo mi ne radi

datagrid.datasource = mycommand

[ Ogi_Boy @ 02.08.2006. 21:29 ] @
evo kako ja to radim

Dim Veza as new MySQLConnection ("server=localhost;database=baza;uid=root;pwd=aaa;")
Dim DA as new MySQLDataAdapter ("Select * from baza", Veza)
Dim DS as new dataset


try
veza.open
da.fill ds,"tabela"
Datagrid.datasource=ds.tables("tabela")
veza.close
catch gr as MySQLExepction
msgbox gr.message
end try
[ elmagio @ 02.08.2006. 21:38 ] @


E i tebi Ogi_Boy se zahvaljujem.
Dali se i vama dugo učitava neka forma. U bazi imam samo deset unosa a učitavanje mi traje duže nego na VB6?