A voir également:
- Sql Server 2008 et j'utilise vb.net
- Cybera server - Télécharger - Divers Réseau & Wi-Fi
- Ps3 media server - Télécharger - Divers Réseau & Wi-Fi
- Comment savoir qui utilise mon wifi et le bloquer - Guide
- Salut j'utilise whatsapp - Accueil - Messagerie instantanée
- Filezilla server - Télécharger - Téléchargement & Transfert
2 réponses
t u sais comment travailler avec l'ADO
si nn répond et j'éssairait de te filer une synthese facile et adapté a ton ton besoin
si nn répond et j'éssairait de te filer une synthese facile et adapté a ton ton besoin
voila un exemple qui sert a ajouter les Num des stg dans un combobox ou (dropdownlist) en fesant une boucle sur la totalité des "cod" des stagiaire :
Private Sub Consultation_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cmd As New SqlCommand ("Select code from Stagiaire",cn)
Try
datar = cmd.ExecuteReader
While (datar.Read)
Combo1.Items.Add(datar(0))
End While
datar.Close()
Catch ex As Exception
MessageBox(ex.message)
End Try
End Sub
n'oublie pas de déclarer ta connecyion en haut
et aussi l'importation des system.data.sqlclient et system.data
-imports system.data.salclient
-imports system.data
Private Sub Consultation_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cmd As New SqlCommand ("Select code from Stagiaire",cn)
Try
datar = cmd.ExecuteReader
While (datar.Read)
Combo1.Items.Add(datar(0))
End While
datar.Close()
Catch ex As Exception
MessageBox(ex.message)
End Try
End Sub
n'oublie pas de déclarer ta connecyion en haut
et aussi l'importation des system.data.sqlclient et system.data
-imports system.data.salclient
-imports system.data
non g aucune idée sur ADO
Pouvez vous me donner la synthése?
moi g fais ça:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyConnexion As OleDbConnection = New OleDbConnection("data source=localhost;Provider=Microsoft.Jet.OLEDB.4.0")
Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()
Mycommand.CommandText = "SELECT numreo_bq FROM banque"
MyConnexion.Open()
Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
Do While myReader.Read()
TextBox1.Text = (myReader.GetString )
Loop
myReader.Close()
MyConnexion.Close()
End Sub
mais ça marche pas.
il m'affiche erreur suivante ( Fichier 'C:\Documents and Settings\Administrateur\Bureau\PFE vb2008\PFE\bin\Debug\db_pfe' introuvable.)
Merci
essaie avec un autre projet quelconque et assure toi que ca marche avant et je te file un exemple tt de suite ; )
a++