Recuperer resultat d'une requète

Version imprimable

Bonjour,
j'aimerais récupérer le résultat de la requete SQL est l'afficher dans une MsgBox. Je ne vois pas trop comment faire voici mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
conn = "DRIVER= {Oracle in OraClient10g_home1};DBQ=KITS04; Server= kits04; Uid= ronly; Pwd= intranet"
        Dim m_conn As OdbcConnection = New OdbcConnection(conn)
 
        Try
            m_conn.Open()
            MsgBox("ok connection")
            Dim da As OdbcDataAdapter = New OdbcDataAdapter("select user from dual;", m_conn)
            Dim cmd1 As OdbcCommandBuilder = New OdbcCommandBuilder(da)
            Dim dstable As DataSet = New DataSet("dual")
            da.Fill(dstable, "dual")
 
        Catch ex As Exception
            MsgBox(ex.Message)
 
        Finally
            m_conn.Dispose()
        End Try

Merci,

28/05/2010, 10h33
hunteshiva
:tagcode:

ces deux lignes ne te retourne rien ??
Code:

1 2 Dim dstable As DataSet = New DataSet("dual") da.Fill(dstable, "dual")
28/05/2010, 10h35
zyanya

non justement
28/05/2010, 11h40
hunteshiva

Résolu ...? 8O
*tu pourrais dire comment ...*

(la j'ais pas le temps de me pencher dans les dataset et la fonction .Fill mais je crois que tu été pas loin)

Oui, du coup j'ai utilisé une autre méthode la voilà si défois sa peut aider des gens:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Dim da As OdbcCommand = New OdbcCommand("select distinct osuser, machine, to_char(logon_time,'DD-MM-RR HH24:MI:SS') from v$session where osuser not like 'oracle';", m_conn)
            Dim dr As OdbcDataReader
            dr = da.ExecuteReader()
 
            While dr.Read()
                'reading from the datareader
                'listbox filling
                ListBoxDatabaseAivailable.Items.Add(dr(0))
                ListBoxDatabaseAivailable.Items.Add(dr(1))
                ListBoxDatabaseAivailable.Items.Add(dr(2))
 
            End While