Dim list_item As New List(Of String)
Dim i As Integer = 0
Dim conn As New OracleConnection("Data Source=192.168.2.203/db;User Id=p;Password=p;")
conn.Open()
Dim dt As New DataTable
Dim sqlorder As String
sqlorder = "select * from Pname where getname_list like'%" & getname & "%'"
Dim dtAdater As New OracleDataAdapter(sqlorder, conn)
dtAdater.Fill(dt)
dtAdater = Nothing
conn.Close()
conn = Nothing
For i = 0 To dt.Rows.Count - 1
list_item.Add(dt.Rows(i)("getname_list").ToString())
Next
dt.Clear()
Return list_item.ToArray()