Informatique - Forum informatique - telechargement gratuit

 CONTACT 
Gsiteg(à)gmail.com
Renplacer (à) par @




 FAQFAQ   RechercherRechercher   S'enregistrerS'enregistrer   ProfilProfil   Se connecter pour vérifier ses messages privésSe connecter pour vérifier ses messages privés   ConnexionConnexion 


vb6(base de donnée)

 
Poster un nouveau sujet   Répondre au sujet    GsiteG Index du Forum -> Programmation & développement
Auteur Message
asmagi



Inscrit le: 25 Avr 2008
Messages: 3

MessagePosté le: Ven Avr 25, 2008 12:52 pm    Sujet du message: vb6(base de donnée) Répondre en citant

salut,
svp,comment faire une connection à une base de donnée sans utiliser data ou adodc,juste avec le code.Aussi comment remplir un combobox avec les informations de la base de donnée (en utilisant juste le code).
Ne tardez pas à me répondre.
Merci
Voir le profil de l'utilisateur Envoyer un message privé
avatarvb



Inscrit le: 21 Juin 2009
Messages: 1

MessagePosté le: Dim Juin 21, 2009 11:33 pm    Sujet du message: - : vb6(base de donnée) Répondre en citant

Option Explicit
Public dbAdo As New Connection 'derclaration de base de donneé
Public rsAdo As New Recordset 'derclaration de table1
Public rsAdo1 As New Recordset 'derclaration de table2
Public Sql As String 'requet
Public Sql1 As String 'requet
'-----------------------------------------------
'cnxxx'
Public Sub cox()
On Error Resume Next
With dbAdo
.Provider = "Microsoft.Jet.OLEDB.4.0" ' Fournisseur d'accès
.Mode = adModeReadWrite ' Mode lecture écriture
.CursorLocation = adUseClient ' Type de curseur (
.Open App.Path & "Chemin de votre base de donnée"
End With
With rsAdo
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.ActiveConnection = dbAdo
.Open "Table1"
End With
With rsAdo1
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.ActiveConnection = dbAdo
.Open "Table2"
End With
End Sub
'----------------------------------------
'Decnxxx'
Public Sub Deconnect()
On Error GoTo fin
rsAdo.Close
rsAdo1.Close
Set rsAdo = Nothing
Set rsAdo1 = Nothing
dbAdo.Close
Set dbAdo = Nothing
Exit Sub
fin:
End Sub
'---------------------------------------
Smile remarque

il faut Activé :


Microsoft activx data objects2.5 library
Microsoft data binding collection vb 6.0 (sp4)
Voir le profil de l'utilisateur Envoyer un message privé
Ninjakiwi



Inscrit le: 03 Aoû 2009
Messages: 2

MessagePosté le: Lun Aoû 03, 2009 3:47 am    Sujet du message: - : vb6(base de donnée) Répondre en citant

Gracias a todos por su apoyo, eres el mejor!


plan solution commission de surendettement - commission de surendettement, vous pouvez demander un dossier de surendettement.plan solution commission de surendettement
Voir le profil de l'utilisateur Envoyer un message privé
Registry Mechanic
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    GsiteG Index du Forum -> Programmation & développement Toutes les heures sont au format GMT
Page 1 sur 1

 
Sauter vers:  

discussions similaires
Problème de base sur phpmyadmin avc site créé sur oscommerce
cours Composants de base pour Calculateurs
base kaspersky
Relier base données annuell à un planning journalier


Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com

phpBB SEO


Articles OuedZem | Gagner de l'argent | Webdesigner | Sapeurs-pompiers

Copyright © 2007 www.GsiteG.com - Tous droits réservés