[ mmilinca @ 07.11.2005. 10:38 ] @
Imam vrlo specifican zadatak. U upotrebi je aplikacija bazirana na access bazi. Iz nje su mi potrebni odredjeni podaci, koje moram da koristim u svojoj aplikaciji koja se bazira na mysql bazi. Kako se izmene podataka obavljaju u access bazi ,nije moguce da samo uzmem iz nje tabelu koja mi treba i ubacim je u svoju win aplikaciju Ovaj koncept je nepromenjiv - sefova ideja Evo nesto koda: Code: Dim upit As String = "SELECT prva,druga,treca FROM zaMysql" Dim myConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\User\My Documents\db1.mdb") Dim mojaKomanda As New OleDbCommand(upit, myConnection) Dim a, b, c As String myConnection.Open() Dim myReader As OleDbDataReader myReader = mojaKomanda.ExecuteReader() While myReader.Read() a = myReader.GetString(0) b = myReader.GetString(1) c = myReader.GetString(2) 'deo koda koji upisuje podatke dobijene iz access-a u mysql bazu Dim conn As New MySqlConnection Dim prva As String Dim myCommand As New MySqlCommand conn.ConnectionString = "database=vezba1" myCommand.Connection = conn myCommand.CommandText = "REPLACE INTO izAccessa VALUES(?element1,?element2,?element3)" myCommand.Parameters.Add("?element1", a) myCommand.Parameters.Add("?element2", b) myCommand.Parameters.Add("?element3", c) Try conn.Open() myCommand.ExecuteNonQuery() Catch myerror As MySqlException MsgBox("Doslo je do greske pri upisu u bazu: " & myerror.Message) End Try End While Resio sam problem, HVALA na savetima koji pomazu [Ovu poruku je menjao mmilinca dana 07.11.2005. u 13:20 GMT+1] [Ovu poruku je menjao mmilinca dana 08.11.2005. u 13:44 GMT+1] |