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