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
| Dim connectstr As String
Dim custConn As OracleConnection
Dim mareader As OracleDataReader, mescomm As New OracleCommand
Dim Marequete As String
LaDataSource = "LeSID" 'Le Tns name
LeID = "UserId" ' Le nom utilisateur de la base de données
LePassword = "Password" 'Le mot de passe de l'utilisateur
connectstr = "Data Source='" & Trim(LaDataSource) & "';User ID='" & Trim(LeID) & "';password='" & Trim(LeID) & "'" ' Connection à la Base de données
custConn = New OracleConnection(connectstr)
custConn.Open()
Marequete = "select * from MATABLE"
mescomm.Connection = custConn
mescomm.CommandType = CommandType.Text
mescomm.CommandText = Marequete
mareader = mescomm.ExecuteReader
Do While mareader.Read
'Action à insérer ici
Loop
mareader.Close()
mareader = Nothing
custConn.Close() |