1 2 3 4 5 6 7 8 9 10 11
| Dim Connection As New SqlConnection
Connection.ConnectionString = "Persist Security Info=False;Integrated Security=SSPI;database=ConsortiumDataBaseSQL;server=rcham-pc"
Connection.Open()
Dim Command As New SqlCommand("SELECT * FROM dbo.compte", Connection)
Dim DataAdapter As SqlDataAdapter(Command,Connection)
Command.Connection() = Connection
DataAdapter.Fill(DataSet, "dbo.compte")
DataTable2 = DataSet.Tables("dbo.compte")
If RowNumber < 0 Then Exit Sub
If RowNumber > DataTable2.Rows.Count - 1 Then Exit Sub |
Partager