[ Blue82 @ 13.03.2015. 10:29 ] @
Pokusavam nesto da prepravim u našoj bazi a programer mi nije tu pa mi je potrebna pomoć. 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 |