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