[ SuDar407 @ 23.08.2011. 20:21 ] @
Pozdrav forumasi! Drugi dan razbijam glavu, guglam i ne mogu da resim problem. Imam bazu u MS Accessu sa vise kolona. Potrebno mi je da iz kolone Username izvucem JEDINSTVENA imena i smestim ih u niz. Evo 100te verzije koda, ali pojma nemam u cemu je problem. Code: Dim connStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Application.StartupPath & "Baza.mdb" Dim dbConnection As OleDbConnection = New OleDbConnection(connStr) Dim SQL As New OleDbCommand Dim NizUserName() As String Dim i As Integer = 0 dbConnection.Open() SQL.Connection = dbConnection SQL.CommandText = "Select Distinct (UserName) from Korisnici WHERE UserName<>''" Dim com As New OleDb.OleDbCommand(SQL.CommandText, SQL.Connection) Dim dr As OleDb.OleDbDataReader = com.ExecuteReader Do While dr.Read() NizUserName(i) = dr.GetValue(0) '<----- OVDE JE PROBLEM i += 1 Loop Unapred zahvalan!!! |