Discussion :

[achrefghanmi]

Bonjour,

L'affichage du contenu de ma base de données ne marche pas et je suis bloqué sur ce point.
Voici le code en question:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
 
Imports MySql.Data.MySqlClient
Public Class Form1
 
    Dim oConn As MySqlConnection = New MySqlConnection()
 
                 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim oRpt As CrystalReport1
        oRpt = New CrystalReport1
        oConn.ConnectionString = "server=localhost;user id=root;password=achref;database=mabase"
        Dim myData As New DataSet
        Dim myCommand As New MySqlCommand
        Dim MyAdapt As New MySqlDataAdapter
        Dim myDataTable As New DataTable
        Dim strQuery As String
        Dim DataSet As DataSet1
 
 
        strQuery = "select * from test"
        myCommand.Connection = oConn
        myCommand.CommandText = strQuery
        MyAdapt.SelectCommand = myCommand
        MyAdapt.Fill(myDataTable)
        oRpt.SetDataSource(DataSet)
        CrystalReportViewer1.ReportSource = oRpt
    End Sub
End Class

Merci de m'aider.

[xabidof]

Bonjour,

As tu essayé cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
myAdapt.Fill(myData, "test")
myDataTable = myData.Tables("test")

Ensuite ta table (myDataTable) est en mémoire, donc tu dois pouvoir récupérer tes données

exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
dim i as integer
dim variable as string 'cela dépend du type que prennent les champs que tu as dans ta table en mémoire
 
for i=0 to mydatatable.Rows.Count - 1
variable = mydatatable.Rows(i)(n).ToString 'i = ligne et n = colonne
next i

[wwilly]

Bonsoir,

J'ai utilisé ce tutoriel pour un projet

http://neo.developpez.com/tutos/cr/vbnet/

j'espere que cela pourra t'aider

Wil.