document.write('Imports System
');
document.write('Imports System.Data
');
document.write('Imports System.Data.SqlClient
');
document.write('Imports PubsDb
');
document.write('
');
document.write('Module MainModule
');
document.write('
');
document.write(' \' Change connection string if needed.
');
document.write(' Const ConnectionString = "Server=.;Database=pubs;Trusted_Connection=True;"
');
document.write('
');
document.write(' Sub Main()
');
document.write('
');
document.write(' Dim pubs As PubsCommands = PubsCommands.CreateInstance()
');
document.write('
');
document.write(' Dim connection As SqlConnection = New SqlConnection(ConnectionString)
');
document.write(' connection.Open()
');
document.write('
');
document.write(' Dim reader As SqlDataReader = pubs.byroyalty(connection, 50).ExecuteReader()
');
document.write('
');
document.write(' While reader.Read()
');
document.write(' Console.WriteLine(reader("au_id"))
');
document.write(' End While
');
document.write('
');
document.write(' reader.Close()
');
document.write(' connection.Close()
');
document.write('
');
document.write(' End Sub
');
document.write('
');
document.write('End Module');