Commentaires de l0r3nz1 sur tout CodeS-SourceS

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)

@+