1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim queryString As String
Dim command, command1 As New SqlCommand
Dim reader As SqlDataReader
Dim secteur As String = "%"
Dim rm As String = "%"
Dim var_sql_connexion_string As String = "Data Source=192.168.1.79;Initial Catalog=SKI_VIEW;Persist Security Info=True;User ID=sa;Password=sa001"
Dim connection1 As New SqlConnection(var_sql_connexion_string)
connection1.Open()
queryString = "SELECT * FROM RM"
command = New SqlCommand(queryString, connection1)
command.ExecuteReader()
While reader.Read()
End While
End Sub |
Partager