cmd As New OracleCommand(sql)
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim oradb As String = "Data Source=datasource;User Id=user;Password=password;"
Dim conn As New OracleConnection(oradb)
Dim connect As Object = Nothing
Try
conn.Open()
' connect.Enabled = False
Dim sql As String = "Select name from client'"
Dim cmd As New OracleCommand(sql)
cmd.CommandType = CommandType.Text
Dim dr As OracleDataReader = cmd.ExecuteReader()
dr.Read()
departments.Items.Add(dr.GetString(0))
Catch ex As Exception
End Try
End Sub
End Class
ASKER