Base de donnée oracle g10 en vb.net

Fermé
vb.net - Modifié par vb.net le 27/12/2010 à 11:08
Bonjour, je vous conncter a m base de donnée oracle en vb.net mai j'ai un button et 2 txtbox conte je sisie un nom et mot de passe et je clik je ouvre une form2 si nom et le mot de passe sont ls ls meme ki j'ai eu donne la base dd si non msg box"errornom et mot de passe" voila m code
Imports System.Data
Imports System.Data.OracleClient
Public Class Form1
Private ObjetDataAdapter As OracleDataAdapter
Private ObjetDataSet As New DataSet()
Dim oradb As String = "Data Source=localhost;User ID=hadjer;Password=151087;Unicode=True"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conn As New OracleConnection(oradb)
conn.Open()
Dim sql As String = "select NOM,MOT DE PASSE from UTILISATEUR "
Dim cmd As New OracleCommand(sql, conn)
cmd.CommandType = CommandType.Text
Dim dr As OracleDataReader = cmd.ExecuteReader()
dr.Read()
TextBox1.Text = "UTILISATEUR" + dr.Item("NOM")
TextBox2.Text = "UTILISATEUR" + CStr(dr.Item("MOT DE PASSE"))
cmd.Connection = conn
cmd.CommandText = "select NOM from UTILISATEUR where NOM = " + TextBox1.Text
cmd.CommandText = "select MOT DE PASSE from UTILISATEUR where MOT DE PASSE = " + TextBox2.Text
If dr.Read() Then
TextBox1.Text = dr.Item("NOM")
TextBox2.Text = dr.Item("MOT DE PASSE")
Form2.Show()
Else
MsgBox("errore mot de passe ou le nom")
End If

cmd.Dispose()
conn.Dispose()
conn.Close()
End Sub

End Class
aide moi stp le plus temp possible merci