CrystalReport en VB.net avec MySQL

Version imprimable

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:

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.

Bonjour,

As tu essayé cela :

Code:

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:

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

11/02/2010, 18h27
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.