Connexion ODBC sous VB ! HELP !!!

Question

Bonjour,

J'essaye de recuperer des informations dans une base Omnis
J'ai cr&#233;e une connexion ODBC et j'arrive a lire me table dans Access
Pourtant lorsque j'essaye de lire la table directement a partir de VB, ca plante (l'editeur plante completement). Avez vous une id&#233;e. C'est une connexion Omnis

Mon FORM

Private Sub Command1_Click()


    CONNEX_DB_CMD "select * from MaBase" ' fonctionne
    CONNEX_DB_RS_CREATE ' fonctionne
    MsgBox rs.Fields("MONCHAMP").Value ' <- PLANTE LE VB !!!!!!!!!!!!!!!!!!!
end sub

Module (recup&#233;r&#233; sur VBFRANCE)

'====================================================================================='GLOBALES
'=====================================================================================
Option Explicit
  
Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Public cmd As ADODB.Command
  
Public Sub CONNEX_DB_OPEN()


'------------- Ouvrir la Database ----------------
     Set cn = New ADODB.Connection
     'cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ibsmg.db;Persist Security Info=False"
     cn.ConnectionString = "DSN=ODBC_OMNIS"
     cn.Open



End Sub


Public Sub CONNEX_DB_CMD(SQL As String)


'-------------- Creer une Commande --------------
     Set cmd = New ADODB.Command
     cmd.CommandText = SQL
     cmd.CommandType = adCmdText
     cmd.CommandTimeout = 15
     cmd.ActiveConnection = cn


End Sub


Public Sub CONNEX_DB_RS_CREATE()


'--------------- Creer un Recordset --------------------
     Set rs = New ADODB.Recordset
     Set rs.Source = cmd
     rs.CursorType = adOpenStatic
     rs.Open
     
  End Sub


Public Sub CONNEX_DB_CLOSE()


  ' - Fermeture de la connexion
     rs.Close
     cn.Close
     Set rs = Nothing
     Set cn = Nothing
End Sub

cs_eldim · Answer

Bonjour,

deux chose peuvent le faire planter :
ton champs est un m&#233;mo ? ou la valeur est nulle ?

test : IF not isnull(rs.Fields("MONCHAMP")) then
         msgbox rs.Fields("MONCHAMP").value
   end if
-- Pourquoi faire simple quand on peut faire compliquer  --

cs_globule · Answer

Non, c'est des que je fais une quelconque op&#233;ration sur le recodset. M&#234;me in recordcount fait planter le VB, alors qu'avec Access, aucun probl&#232;me

Connexion ODBC sous VB ! HELP !!!

2 réponses

Discussions similaires