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,