izmenjeno 2 puta, poslednji put mmilinca 08.11.2005. u 13:44
Izmene poruke
- mmilinca08.11.2005. u 13:44zapis iz teksta poruke
- mmilinca07.11.2005. u 13:20zapis iz teksta poruke
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:
Resio sam problem, HVALA na savetima koji pomazu
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