Connection et conversion !
Résolu
VirJni
Messages postés
31
Date d'inscription
jeudi 2 décembre 2004
Statut
Membre
Dernière intervention
23 janvier 2006
-
14 janv. 2005 à 16:18
beastieyann Messages postés 28 Date d'inscription mardi 21 décembre 2004 Statut Membre Dernière intervention 17 juillet 2006 - 14 janv. 2005 à 17:54
beastieyann Messages postés 28 Date d'inscription mardi 21 décembre 2004 Statut Membre Dernière intervention 17 juillet 2006 - 14 janv. 2005 à 17:54
A voir également:
- Connection et conversion !
- Tableau conversion fahrenheit celsius ✓ - Forum PHP
- Connection reset by peer python - Forum Java
- Adodb connection ✓ - Forum Visual Basic 6
- Échec de la conversion de la date et/ou de l'heure à partir d'une chaîne de caractères. ✓ - Forum SQL
- Conversion to non-scalar type requested - Forum C / C++ / C++.NET
4 réponses
beastieyann
Messages postés
28
Date d'inscription
mardi 21 décembre 2004
Statut
Membre
Dernière intervention
17 juillet 2006
14 janv. 2005 à 17:54
14 janv. 2005 à 17:54
Salut,
J'ai eu le même pb que toi alors j'ai créé une fonction:
Public Function decimales(txt As String) As String 'Fonction qui vérifie si la virgule est un point ou une virgule
If InStr(1, txt, ".") <> 0 Then ' vérifie si il a un point
decimales = Replace(txt, ".", ",") ' si oui, tu la remplaces par une virgule
Else
decimales = txt 'si non, tu prends le texte comme il est
End If
End Function
A+. Bonne prog.
J'ai eu le même pb que toi alors j'ai créé une fonction:
Public Function decimales(txt As String) As String 'Fonction qui vérifie si la virgule est un point ou une virgule
If InStr(1, txt, ".") <> 0 Then ' vérifie si il a un point
decimales = Replace(txt, ".", ",") ' si oui, tu la remplaces par une virgule
Else
decimales = txt 'si non, tu prends le texte comme il est
End If
End Function
A+. Bonne prog.
cs_trabice
Messages postés
328
Date d'inscription
mercredi 26 novembre 2003
Statut
Membre
Dernière intervention
24 novembre 2005
1
14 janv. 2005 à 16:26
14 janv. 2005 à 16:26
tu peux faire un traitement avant de mettre ds ta base sur le string,tu change la virgule en un point et inversement pour l'affichage
non?
non?
cs_ITALIA
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
9
14 janv. 2005 à 16:32
14 janv. 2005 à 16:32
Pour te connecté àune Base Access enDAO.
Coches Projet..Références..Microsoft DAO XX Object Library
Exemple:
Set Db = OpenDatabase("C:\MaBase.mdb") ' Définition base de donnéeSet Passes Db.OpenRecordset("SELECT * FROM Droits WHERE Passe '" & Text1.Text & "'") ' Recherche du Compte
If Passes.RecordCount <> 0 Then
Passe = Passes("Droit")
Unload Me
FrmAccueil.Show
End If
Set Passes = Nothing
Set Db = Nothing
It@li@
Coches Projet..Références..Microsoft DAO XX Object Library
Exemple:
Set Db = OpenDatabase("C:\MaBase.mdb") ' Définition base de donnéeSet Passes Db.OpenRecordset("SELECT * FROM Droits WHERE Passe '" & Text1.Text & "'") ' Recherche du Compte
If Passes.RecordCount <> 0 Then
Passe = Passes("Droit")
Unload Me
FrmAccueil.Show
End If
Set Passes = Nothing
Set Db = Nothing
It@li@
VirJni
Messages postés
31
Date d'inscription
jeudi 2 décembre 2004
Statut
Membre
Dernière intervention
23 janvier 2006
3
14 janv. 2005 à 16:47
14 janv. 2005 à 16:47
Kikoo, j'espère que ça va !!! Moi j'ai un souci :
Tout d'abord merci de vos reponses !
Fabrice : merci jy ait pensé ! mais le problème c'est ce traitement ki me gêne !
comment faire pour reperer le point
[mailto:It@li It@li]@ :
Ya pô + simple lol car pour l'exam si on me pose la question je c pô commen expliquer !
Et puis ca ma l'air complexe ton affaire ! lol
mais c interessant !
Je c kon peut faire ca aussi :
'Connexion à la bdd
cn.Provider = "Microsoft.Jet.oledb.3.51" 'Access 97
cn.Open ".\<nom-base>.MDB"
'ou
cn.Open "F:"
'ou créer une source odbc
cn.Open DSN = "nom de la base"
Ya pa un truc comme ca ?
Merci de votre aide !!!
@ + !!
Tout d'abord merci de vos reponses !
Fabrice : merci jy ait pensé ! mais le problème c'est ce traitement ki me gêne !
comment faire pour reperer le point
[mailto:It@li It@li]@ :
Ya pô + simple lol car pour l'exam si on me pose la question je c pô commen expliquer !
Et puis ca ma l'air complexe ton affaire ! lol
mais c interessant !
Je c kon peut faire ca aussi :
'Connexion à la bdd
cn.Provider = "Microsoft.Jet.oledb.3.51" 'Access 97
cn.Open ".\<nom-base>.MDB"
'ou
cn.Open "F:"
'ou créer une source odbc
cn.Open DSN = "nom de la base"
Ya pa un truc comme ca ?
Merci de votre aide !!!
@ + !!