Meilleur auteur de réponses
remplir datagrid par une tables existante dans la base de donnée

Question
-
Réponses
-
bonsoir,d'abord il te faut connecter ta base de donnée à ton vb;ensuite tu definis tes vaiables de connection dans le public form du formulaire ou sera posé ton datagrid.Et en fonction de ce que tu voudras afficher dans ton datagrid tu appelles ta base de donnée par une requete.voici un exemple
'declaration des var de connection
Dim ObjetConnection As OleDb.OleDbConnection
Dim ObjetCommand As OleDb.OleDbCommand
Dim ObjetDataAdapter As OleDb.OleDbDataAdapter
Dim ObjetDataSet As New DataSet
Dim ObjetDataTable As New DataTable
Dim strSql As String
Dim strCon As String
Dim objetcb As OleDb.OleDbCommandBuilder'strCon As String = "Provider=pilote de connection sqlserver;data source ='le chemin d'acces à ta base de donnée"
'dans un controle(buton) tu tapes ceci
'Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim strsql As String = "Select * from REQ "
ObjetConnection = New OleDb.OleDbConnection
ObjetConnection.ConnectionString = strCon
ObjetConnection.Open()
ObjetCommand = New OleDb.OleDbCommand(strsql)
ObjetDataAdapter = New OleDb.OleDbDataAdapter(ObjetCommand)
ObjetCommand.Connection() = ObjetConnection
objetcb = New OleDb.OleDbCommandBuilder(ObjetDataAdapter)
ObjetDataAdapter.Fill(ObjetDataSet, "REQ")
ObjetDataTable = ObjetDataSet.Tables("REQ")
DataGrid1.DataSource = ObjetDataTable
End Sub- Proposé comme réponse LE_MUFTY jeudi 1 avril 2010 18:01
- Marqué comme réponse Alex Petrescu vendredi 9 avril 2010 14:48
Toutes les réponses
-
bonsoir,d'abord il te faut connecter ta base de donnée à ton vb;ensuite tu definis tes vaiables de connection dans le public form du formulaire ou sera posé ton datagrid.Et en fonction de ce que tu voudras afficher dans ton datagrid tu appelles ta base de donnée par une requete.voici un exemple
'declaration des var de connection
Dim ObjetConnection As OleDb.OleDbConnection
Dim ObjetCommand As OleDb.OleDbCommand
Dim ObjetDataAdapter As OleDb.OleDbDataAdapter
Dim ObjetDataSet As New DataSet
Dim ObjetDataTable As New DataTable
Dim strSql As String
Dim strCon As String
Dim objetcb As OleDb.OleDbCommandBuilder'strCon As String = "Provider=pilote de connection sqlserver;data source ='le chemin d'acces à ta base de donnée"
'dans un controle(buton) tu tapes ceci
'Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim strsql As String = "Select * from REQ "
ObjetConnection = New OleDb.OleDbConnection
ObjetConnection.ConnectionString = strCon
ObjetConnection.Open()
ObjetCommand = New OleDb.OleDbCommand(strsql)
ObjetDataAdapter = New OleDb.OleDbDataAdapter(ObjetCommand)
ObjetCommand.Connection() = ObjetConnection
objetcb = New OleDb.OleDbCommandBuilder(ObjetDataAdapter)
ObjetDataAdapter.Fill(ObjetDataSet, "REQ")
ObjetDataTable = ObjetDataSet.Tables("REQ")
DataGrid1.DataSource = ObjetDataTable
End Sub- Proposé comme réponse LE_MUFTY jeudi 1 avril 2010 18:01
- Marqué comme réponse Alex Petrescu vendredi 9 avril 2010 14:48
-