Kako nemam pristup SQL-u pa ne mogu da napravim backup a radim na živim podacima ne bih da nešto zeznem.
Imam neku funkciju čije se rešenje smešta u promenjivu UlazniStatus. Neka je ona u ovom primeru uvek "00" to mi nije bitno.
Pokusavam da procitam sve zapise iz baze sa StatusKom "00" i "03" -tip podataka string, i da ih uporedim sa vrednosti iz proenjive UlazniStatus. Ako ta 2 statusa nisu ista, u bazi treba da se upiše vrednost iz promenjive "UlazniStatus".
Ovim dole kodom uspešno očitavam Šifru komitenta (ona je jedinstveni zapis u bazi sa svakog komitenta sa kojim radimo) i njegov trenutni status.
Može li mi neko doraditi code, jer ovo sam mogao da isprobam a sa upisom se ne bih igrao.
Code:
Dim UlazniStatus As String = "00"
Dim StatusUbazi as string=""
Dim SifraKomitenta As String = ""
Dim connetionString As String
Dim connection As SqlConnection
Dim command As SqlCommand
Dim sql As String
connetionString = "Data Source=SERVER2003\SERVER2000;Initial Catalog=Komercijala;User ID=sa;Password=sa"
sql = "SELECT * FROM Komintenti WHERE StatusKom LIKE '00' OR StatusKom LIKE '03'"
connection = New SqlConnection(connetionString)
Try
connection.Open()
command = New SqlCommand(sql, connection)
Dim sqlReader As SqlDataReader = command.ExecuteReader()
While sqlReader.Read()
StatusUbazi = sqlReader.Item("StatusKom") 'ovde procitam status komitenta
SifraKomitenta = sqlReader.Item("SifKomint") ' ovde procitam sifru komitenta
End While
sqlReader.Close()
command.Dispose()
connection.Close()
Catch ex As Exception
MsgBox("Can not open connection ! ")
End Try
Dim UlazniStatus As String = "00"
Dim StatusUbazi as string=""
Dim SifraKomitenta As String = ""
Dim connetionString As String
Dim connection As SqlConnection
Dim command As SqlCommand
Dim sql As String
connetionString = "Data Source=SERVER2003\SERVER2000;Initial Catalog=Komercijala;User ID=sa;Password=sa"
sql = "SELECT * FROM Komintenti WHERE StatusKom LIKE '00' OR StatusKom LIKE '03'"
connection = New SqlConnection(connetionString)
Try
connection.Open()
command = New SqlCommand(sql, connection)
Dim sqlReader As SqlDataReader = command.ExecuteReader()
While sqlReader.Read()
StatusUbazi = sqlReader.Item("StatusKom") 'ovde procitam status komitenta
SifraKomitenta = sqlReader.Item("SifKomint") ' ovde procitam sifru komitenta
End While
sqlReader.Close()
command.Dispose()
connection.Close()
Catch ex As Exception
MsgBox("Can not open connection ! ")
End Try