Discussion :

[zyanya]

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 :

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
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,

[hunteshiva]

ces deux lignes ne te retourne rien ??

Code :

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

1
2
Dim dstable As DataSet = New DataSet("dual")
da.Fill(dstable, "dual")

[zyanya]

non justement

[hunteshiva]

Résolu ...?
*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)

[zyanya]

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

Code :

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

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