1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
| Imports System.Data.SqlClient
Imports System.Console
Imports Microsoft.VisualBasic.ApplicationServices
Module Module1
Dim myConnection As SqlConnection
Dim myCommand As SqlCommand
Dim dr As SqlDataReader
Sub Main()
Try
myConnection = New SqlConnection("connection parameters;")
'you need to provide password for sql server
myConnection.Open()
myCommand = New SqlCommand("SELECT * FROM [account_user] WHERE [genacc_user_adacc] = 'System.Environment.UserName', myConnection)
dr = myCommand.ExecuteReader
Do
While dr.Read()
WriteLine(dr(7))
WriteLine(dr(8))
' writing to console
End While
Loop While dr.NextResult()
Catch
End Try
dr.Close()
myConnection.Close()
End Sub |
Partager