VB.Net by API/System.Data.OleDb/OleDbCommand
Версия от 19:40, 26 мая 2010; (обсуждение)
New OleDbCommand
<source lang="vbnet"> Imports System Imports System.Data Imports System.Data.OleDb Module OleDbProvider
Sub Main() " Set up connection string Dim ConnString As String = "provider=sqloledb;" & _ "data source=(local)\SQLEXPRESS;" & _ "integrated security=sspi;" & _ "database=MyDatabase" " Set up query string Dim CmdString As String = "SELECT * FROM Employee" "Declare Connection and DataReader variables Dim Conn As OleDbConnection Dim Reader As OleDbDataReader Try "Open Connection Conn = New OleDbConnection(ConnString) Conn.Open() "Execute Query Dim Cmd As New OleDbCommand(CmdString, Conn) Reader = Cmd.ExecuteReader() "Display output header Console.WriteLine("Demonstrates the use " & _ "of the OleDb Data Provider." & ControlChars.NewLine) Console.WriteLine("Querying database {0} with query {1}" & _ ControlChars.NewLine, Conn.Database, Cmd.rumandText) Console.WriteLine("FirstName" & ControlChars.Tab & "LastName") "Process The Result Set While (Reader.Read()) Console.WriteLine(Reader("FirstName").PadLeft(9) & _ ControlChars.Tab & Reader(1)) End While Catch ex As Exception Console.WriteLine("Error: {0}", ex) Finally "Close Connection Reader.Close() Conn.Close() End Try End Sub
End Module
</source>