CS
VB, VB.NET
ASP.NET,ASP
C, C++
ColdFusion
PHP
Javascript
Delphi
Flash
Java
Graphisme
Irc
Assembleur
C#
Mobilité
SQL
Foxpro
Python
Windev
Snippets
IT Pros
Codes
(37957)
Listes de codes
Toutes
les sources
Les plus
récents
Les
mis à jour
Les plus
populaires
Les plus
populaires du mois
Tout le
niveau 1
(débutant)
Tout le
niveau 2
(initié)
Tout le
niveau 3
(expert)
Toutes les sources avec un
fichierZIP
Les sources
(1147)
Les
mieux notés
Trouver des codes
Trouver un code par mot clé
(Nouveau)
Top des codes
Les Trophées
Top des favoris des membres
Top par catégorie
Auteurs de codes
Les auteurs de sources
Le top des membres
Ajouter une source
Tutoriaux
(37957)
Forums
(1108059)
Vidéos
Livres
(27801)
Outils & Liens
Emploi (CV et Offres)
Services
Téléchargement
Chat
Autres Sites
Divers
Partenaires
Section étudiants
Section pro
Connexion
begin process at 2008 05 17 07:01:01
Derniers blogs
Virtual PC 2007 SP1 et...
HxD (éditeur hexa free...
[ASP.NET]FileUpload et...
SharePoint : Installer...
WygDay 2008, Session S...
La suite...
Mini Sondage
Votre navigateur n'utilise pas le javascript, pour
voter aux sondages de ce site, cliquez ici
Derniers logiciels
HxD (1.7.6.3)
ToDoList (5.5.3)
Defraggler (1.01.073 ...
Enigma (1.01)
Ventrilo (3.0.1)
La suite...
Comparer les prix
Microsoft Office Professional 2007 Mise à jour Version de mise à jour au meilleur prix
Mes RSS
Intel : un supercalcu...
Isonic snapbox x25 : ...
Virtual pc 2007 sp1 e...
Hxd (éditeur hexa fre...
Ajouter des fichiers ...
La suite...
Personnaliser
Stats
1 173 918
membres
50
nouveaux aujourd'hui
13 973
membres club
Divers
Mettre ce site au démarrage
Ajouter ce site à vos favoris
CodeS-SourceS dans votre MSN !
Mes Favoris
Plein Ecran
Connexion
Trouver une ressource
Trouvez une ressource parmi
37 957
codes,
1 108 059
messages d'aide etc...
Recherche:
dans
Tout le site
Codes
Tutoriaux
Forum
Blogs
Livres
RFC
Icones
News .NET
Boutique
[ Dernières recherches ]
Filtre:
Tous les langages
Python
Foxpro
SQL
PDA / PocketPC
C# / C#.NET
Assembleur
IRC
Graphisme
JAVA / J2EE
Flash
Delphi
Javascript / Ajax / DHTML
PHP
ColdFusion
C / C++ / C++.NET
ASP / ASP.NET
Visual Basic, VB6, VB.NET, VB 2005, VB
Tous les codes
.NET uniquement
Exclure .NET
Vous ne trouvez pas de réponse à votre problème ? Alors
posez la question dans le forum
.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
10 commentaire(s) de l0r3nz1
sur des sources sur tout
CodeS-SourceS
Le :
26/03/2008 16:42:26
Source :
CONNEXION BASES DE DONNÉES
merci de ta réponse Renfield,
hélas pour moi je crois que c'est plutôt un problème d'instalation ou de droits (ou de dll?). J'ai bien modifié la surface de d'exposition comme c'est la version express donné les droits admin à mon utilisateur mais il y a peu être encore un confli entre les deux pilotes sql server et sql native client j'ai peut être un peu trop trifouiilé dans les pilotes et sql management... et j'ai empiré les choses... je vais essayer sur un autre ordi pour voir.
@+
Le :
26/03/2008 15:21:24
Source :
CONNEXION BASES DE DONNÉES
Bonjour,
Ça c'est pour la connexion à une bdd Access mais pour se connecter à une bdd SQL serveur je crois qu'un code correct ne suffit pas:
cnString = "Provider=MSDASQL;Driver=SQLSRV32.DLL;Server=monordi\SQLEXPRESS;Database=" & bdd & ";integrated seurity=sspi;Trusted_Connection=Yes;UserID= moi; pwd = mo2pass"
Il faut peut être recréé un utilisateur spécialement pour SQL server ou alors ... J'ai pourtant configuré la surface d'exposition, les utilisateurs etc. rien y fait ça bloque au niveau de la chaîne de connexion (toutes les chaînes de connexion)...
Voici mes messages d'erreurs récurrents:
Pour
cnString = "Provider=SQLOLEDB;DATA SOURCE=.\SQLExpress;INITIAL CATALOG=" & bdd & ";INTEGRATED SECURITY=sspi;USER INSTANCE = true;"
Microsoft OLE DB Service Components
Une opération OLE-DB en plusieurs étapes a généré des erreurs. Vérifiez chaque valeur d'état OLE-DB disponible. Aucun travail n'a été effectué.
1000440
-2147217887
pour
cnString = "Driver={SQL Native Client};Provider=MSDASQL;Server=PCBUR0610-1\SQLEXPRESS;Database=" & bdd & ";integrated seurity=sspi;Trusted_Connection=Yes;"
Microsoft OLE DB Provider for ODBC Drivers
[Microsoft][Gestionnaire de pilotes ODBC] Source de données introuvable et nom de pilote non spécifié
1000440
-2147467259
pour
cnString = "Driver={SQL Native Client};Provider=SQLOLEDB.1;Server=PCBUR0610-1\SQLEXPRESS;Database=" & bdd & ";integrated seurity=sspi;Trusted_Connection=Yes;"""
Microsoft OLE DB Provider for SQL Server
Attribut de chaîne de connexion non valide
1000440
-2147217843
cnString = "Driver={SQL Native Client};Provider=SQLNCLI;Server=monOrdi\SQLEXPRESS;Database=" & bdd & ";integrated seurity=sspi;Trusted_Connection=Yes;"""
Microsoft SQL Native Client
Attribut de chaîne de connexion non valide
1000440
-2147217843
Est ce que vous avez une idée?
salut.
PS: marrant le petit chat snipper...
Le :
18/03/2008 16:31:05
Source :
CONNEXION BASES DE DONNÉES
rebonjour... rapport à la modification apportée:
une erreur la connexion directe a un fichier .adp se fait plutôt de cette façon
cnString = "Driver={SQL Native Client};Server=.\SQLExpress;AttachDbFilename=" & " fichier dans program sql server...data... .mdf" & "; Database=" & "base donnée en .adp" & ";Trusted_Connection=Yes;"
C'est pour l'attacher à une bdd sql serveur 2005 mais c'est très médiocre, ca fait plusieurs fois que tout est effacé, contentez vous des connexions à ACCESS avec ce code le temps que j'y comprenne plus.
Le :
18/03/2008 11:05:42
Source :
CONNEXION BASES DE DONNÉES
rectification je parle de SQL server2005...
Le :
18/03/2008 10:48:41
Source :
CONNEXION BASES DE DONNÉES
Bonjour, merci de vos réponses.
Ce programme me sert surtout à comparer DAO (qui est très ancien, mais en fin de compte je n'ai rien vu de défaillant pour l'instant) et ADO (qui est censé être beaucoup plus performant avec SQL serveur)
Et c'est vrai que si je veux écrire les valeurs d'une base dans une autre ce sera plus difficile parce que j'aurais du différentier mes recordset rstDAO et rstADO ou même rstADOecrit... les identifier quoi comme VBA ACCESS je compile pas (débogage peut être pratique des fois).
Ceci dit ce que je cherche à la base c'est réussir à me connecter non pas sur une base ACCESS liée à SQL server mais directement à SQL server (je ne sais même pas si c'est une bonne idée vu que c'est la version EXPRESS avec une quantité maximale de mémoire prise en charge de 1GO->vu sur l'aide SQL server) d'où la configuration un peu spéciale qui me permet de choisir une base ou l'autre. Sur mon Ordi en fait j'ai déjà pré choisi des échantillons de bdds et tables.
Pour l'instant je n'ai pas encore décidé de manipuler SQL serveur via VBA ou via VB2005 mais pour tous ceux que cette échange intéresse vous pouvez jeter un ½il sur :
http://www.vbfrance.com/infomsg_CONNECTION-TABLE-SQL-SERVEUR_1094569.aspx#2 (merci Casy)
Il y a des remarques vraiment très intéressantes.
PS: j'ai oublié un ", dbOpenDynaset, dbSeeChanges" dans la methode d'écriture avec DAO
Set rst = dbs.OpenRecordset(table, dbOpenDynaset, dbSeeChanges) comme pas de souci pour les tables liées à SQL server.
Le :
14/03/2008 10:10:05
Source :
CHRONO AVEC ARCHIVAGE
(Dim a, b, c) c'est super nul même quand on veut ajouter une variable vite fait mal fait, mais pourquoi FSO à proscrire en vb6? Si c'était si nul il y aurait encore les "Open fichier For Output As #varfreefile" en vb2005? Cela dit c'est vrai que quand on connait bien c'est pratique. Mais bon les progs que je publie c'est ceux qui servent à faire mes ptits test et comparaison d'ou l'utilisation d' "FSO" et "open for..." ainsi qu'un chrono avec archivage ET récupération du nom de l'ordi... c'est vrai que ce n'est pas un prog qui m'a servi directement mais les techniques elles m'ont servi.
Maintenant si le niveau est trop bas et le programme pas assez différentié des autres (malgré la récupération du nom de l'ordi et l'écriture dans Excel) effectivement... "Cette source sera rapidement supprimée".
Cdt.
Le :
11/03/2008 10:16:19
Source :
EXECUTER UNE REQUETE SQL EN ADO
Bonjour ABRI1983 (si tu es encore la deux mois apres) je ne sais pas ce qu'est flexgrille mais tu as le code pour pouvoir ecrire dans une bdd et pour pouvoir faire une remise a zero je pense que c'est possible si tu as une table intermediaire (ou tempon) dans laquelle tu stock les modifications ou une table archive qui contient les anciennes donnees. Je ne sais pas si je t'ai aidé. bon courage.
Vous parlez tous beaucoup d'ADO mais à vrai dire à l'utilisation je ne vois pas la differance avec DAO:
'***********************BDD ACCESS OK AVEC ADO**********************************************
Dim bdd
bdd = "chemin_base_de_donnee"
'*******************************OPEN DATABASE DAO **************************************
Dim dbs As DAO.Database
Set dbs = DBEngine.Workspaces(0).OpenDatabase(bdd)
'ou set dbs = CurrentDb() je vous laisse devinner dans quel cas
'*******************************LES ENREGISTREMENTS AVEC DAO******************************
Dim rstdao As DAO.Recordset
Set rstdao = dbs.OpenRecordset("nom_de_la_colonne")
if jeVeuxRemplirLaBDD then
rstdao.AddNew
rstdao("Nom_champ1") = val1
rstdao("Nom_champ2") = val2
rstdao.Update
else 'je veux utiliser les données
rstdao.MoveFirst
While Not rstdao.EOF
Texte6 = Texte6 & rstdao("nom_champ").name & ": " & rstdao("nom_champ") & vbCrLf
Texte6 = Texte6 & rstdao(no_champ).name & ": " & rstdao(no_champ) & vbCrLf
rstdao.MoveNext
Wend
end if
'************************************FERMETURE***************************************
rstdao.Close
dbs.Close
Set dbs = Nothing
Set rstdao = Nothing
Comme ça il y aura des petits bouts de code pour tous.
@+
Le :
07/03/2008 15:49:55
Source :
TACHE PLANIFIÉES (PETITE BLAGUE)
Je dois être devin!
Sinon tu sais les fautes "tu peux les ignorés" ;) Je n'y prête pas souvent attention
rdv pour la prochaine source.
Le :
07/03/2008 14:20:13
Source :
TACHE PLANIFIÉES (PETITE BLAGUE)
Merci pour vos commentaires. (Même les tiens Nhenry).
Pour l'absence de "C:\" tu peux le remplacer par "\" ... non? (sélectionner tout le code et ctrlH y a pas d'autre "C:\" promis) Mais bon avec ces remplacements tu risque un jour de te retrouver avec des chaine du type """"... ;)
A part ça si vous voulez ajouter des commentaires ils sont les bienvenus pour TOUS ceux qui liront cet échange tant qu'ils sont constructifs. Je m'en doute qu'il y a bien meilleur comme je débute inutile de perdre du temps à le rappeller vous en aurez plus assez pour rappeler pourquoi ajouter # en début de ligne par exemple... ;).
Comme quoi c'est toujours bien de programmer même sans une super utilité, il y a même des gens qui le font pour le plaisir d'apprendre, de construire...
@+
Le :
28/02/2008 13:39:13
Source :
MES TEST ET MES RECHERCHES SUR WMI, PROCESSUS ET INTERNET
Merci pour vos commentaires.
méa culpa.
La prochaine j'arrange les fichier mieux que ça avant avant de le mettre sur ce site.
Pour ceux qui lisent et trouvent que c'est un sacré foutoir mais comme dit la conclusion concentrez vous sur les parties de code tel que
Set objWMI = GetObject("winmgmts:root\cimv2")
reqVbs = "Select * from Win32_process"
For Each oproc In objWMI.execquery(reqVbs)
if oproc.Name="iexplore.exe" then...
ou
Dim IE
Set IE = CreateObject("InternetExplorer.Application")
ou IE.readystate (renvoi l'etat de la page internet 1,2=debut chargement 3=interactif 4=chargement complet)
@+
[
Page 1
]
Appels d'offres
Developpeur Python
Budget : ND
Developpement d une ap...
Budget : ND
Developpement applicat...
Budget : ND
La suite
RSS
Pub
Côté IT
Installation des drive...
Supprimer un module da...
Nettoyer les fichiers ...
Intégration de Reporti...
Automatisation de back...
Installation de WSS V3...
Installation de SQL Se...
Tous les articles IT
CalendriCode
Mai
2008
L
M
M
J
V
S
D
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Codyx le site 100%
snippets
!
[Nouveau]
Codyx, le site des snippets
Boutique
Besoin d'icones ?
Besoin d'icones de qualité professionnelle pour vos sites et applications ? Alors ne cherchez plus, IconShock est la réponse !
IconShock est recommandé par CodeS-SourceS