/
aprogrammer
/
dotnet-docs
Обзор
Документация
Войти
/
aprogrammer
/
dotnet-docs
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
main
samples/snippets/visualbasic/VS_Snippets_ADO.NET/DataWorks SampleApp.Oracle/VB/source.vb
34 строки
1000 B
Genevieve Warren
SFI - ROPC work - VB snippets part 1 (#42691)
24 сен 2024, 21:39
Не верифицирован
24 сен 2024, 21:39
7f6485e
Код
Авторство
О чём код?
' <Snippet1> Option Explicit On Option Strict On Imports Oracle.ManagedDataAccess.Client Public Class Program Public Shared Sub Main() Dim connectionString As String = "..." Dim queryString As String = "SELECT CUSTOMER_ID, NAME FROM DEMO.CUSTOMER" Using connection As New OracleConnection(connectionString) Dim command As OracleCommand = connection.CreateCommand() command.CommandText = queryString Try connection.Open() Dim dataReader As OracleDataReader = command.ExecuteReader() Do While dataReader.Read() Console.WriteLine(vbTab & "{0}" & vbTab & "{1}", dataReader(0), dataReader(1)) Loop dataReader.Close() Catch ex As Exception Console.WriteLine(ex.Message) End Try End Using End Sub End Class ' </Snippet1>