salut :
voila j'ai ecris un programme sous VB6 et j'ai créer son execuable .

apré j'ai essayer de l'executer dans un autre pc on installant le runtimevb mais ca ne marche pas sur ce dernier et il ya un messge "le composant MCI32.OCX ou une de ses dependance n'est pas correctement enregister "

sachant que ce programme contient des controles multimedia .

                                                                                                            merci

Quel empaquetage as-tu utilisé pour distribuer ton produit ?
En d'autres termes : comment as-tu fait ton setyp.exe ? A l'aide de quoi ?

Quand (et seulement quand) tu auras bien voulu répondre à cette question, nous verrons ensemble comment utiliser Regsvr32.exe... pas avant...
Et n'ouvre jamais plus, s'uk te plait, 2 discussions pour le même sujet .
Merci

OUIIIIIIIIIIIII   CA MARCHE
BINGO
j'ai enregistré le fichier manquant MCI32.OCX dans le fichier système et ca marche
merci les amis

Slt à tous!!
j'ai un message d'erreur qui s'affiche lors de l'exécution de mon programme, voila le message: " Aucune valeur donné pour un ou plusieur paramètre requis" cela se produit quand j'enregistre, je devéloppe sous Vb net 2003, je vous donnes mon code, mis dans le Bouton Enregistrer:

Dim MyCmd AsNew OleDbCommand

If Not SaisieOK() Then Exit Function 'Vérification des zones de saisie

If ClientExiste(txtcode.Text) Then 'Vérification de l'existance d'un client

MessageBox.Show("Ce Code existe déjà. Veuillez en taper un autre", "Confirmation", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)

txtcode.Focus()

Else

Try

MyCmd.Connection =

New OleDbConnection(MyCn)

MyCmd.CommandType = CommandType.Text

MyCmd.CommandText = " insert into TblCLIENT(Cde,nom,adresse,email,fonction,telebureau,telemobile)values(" & txtcode.Text & ",'" & txtnom.Text & "','" & txtadre.Text & "','" & txtemail.Text & "','" & txtfonc.Text & "','" & txttelbu.Text & "','" & txttelmo.Text & "')"

If MyCmd.Connection.State = ConnectionState.Closed Then

MyCmd.Connection.Open()

End If

MyCmd.ExecuteNonQuery()

MessageBox.Show("Enregistrement effectué avec succés", "Confirmation", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)

Catch ex As Exception

MsgBox(Err.Description)

Finally

If MyCmd.Connection.State = ConnectionState.Open Then

MyCmd.Connection.Close()

End If

MyCmd.Dispose()

MyCmd =

Nothing

End Try

End If


Voilà le code qui me permet de vérifier l'existance du client (c'est une fonction)

PrivateFunction ClientExiste(ByVal Code AsString) AsBoolean

Dim MyCmd AsNew OleDbCommand

Dim myResult AsBoolean = False

Try

MyCmd.Connection =

New OleDbConnection(MyCn) ' Connexion à la base de données

MyCmd.CommandType = CommandType.Text

'Sélectionne des données dans la table spécifié

MyCmd.CommandText = " SELECT COUNT(Cde) FROM TblCLIENT WHERE Cde = " & Code & ""

If MyCmd.Connection.State = ConnectionState.Closed Then

MyCmd.Connection.Open()

EndIf

If MyCmd.ExecuteScalar = 1 Then

myResult =

True

EndIf

Catch ex As Exception

MessageBox.Show(ex.Message)

Finally

If MyCmd.Connection.State = ConnectionState.Open Then

MyCmd.Connection.Close()

EndIf

MyCmd.Dispose()

MyCmd =

Nothing

EndTry

Return myResult

EndFunction