traduisez moi ce code de vb net en un code de vb6

Question

Public Cnx As New Odbc.OdbcConnection


    Public Function Connection_Odbc(ByVal sSdd As String, ByVal sUid As String, ByVal sPwd As String) As Boolean
        Try
            Dim b As Boolean = False
            Cnx.ConnectionString = "DSN=" & sSdd & ";UID=" & sUid & ";PWD=" & sPwd & ";" 
            Cnx.Open()
            b = True
            Return b
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Function

crenaud76 · Answer

Et un "S'il vous plait", ca t'arracherait la G _ _ _ _ E ??????

W@$h! · Answer

il y a d'autre mani&#233;re de poser la question, la on dirait vraiment que tu prends les programmeur d'ici pour tes chiens...

bidossessy · Answer

i'm sorry! &#231;a ne se reproduira +.
a+ les gars

crenaud76 · Answer

Bon allez ... la voila ta traduction en VB6

Public Function Connection_Odbc(ByVal sSdd As String, ByVal sUid As String, ByVal sPwd As String) As Boolean
  On Error Goto ErrHdlr
  Cnx.ConnectionString = "DSN=" & sSdd & ";UID=" & sUid & ";PWD=" & sPwd & ";" 
  Cnx.Open()
  Connection_Odbc = True
  Exit Function

ErrHdlr:
  MsgBox(Err.Description)
End Function

J'ai aussi supprimé la variable b qui ne sert à rien.

Traduisez moi ce code de vb net en un code de vb6

4 réponses

Discussions similaires