|
 Trouver une ressource
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 !
 Sujet : vba [ Base de données / SQL ] (sofien86)
 Informations & options pour cette discussion
|
vendredi 29 août 2008 à 14:58:22 |
vba
sofien86
|
je vien de comencé a etulise visuel basic et j sui en trei de devlope un tableau dans sql qui comandes par une variable en vijeo look j creé un bouton pour enregistré la niveau et la date je suis enfeni arive Private Sub Group1_Click() Dim mess Dim today As String today = Now Dim str, objConnection, objCommand, oRs, strSQL Dim niveau As Variable Set niveau = Variables.Add("Device1.Niveau") str = "provider=msdasql; Initial Catalog= mohamed ; DSN=mohamed" strSQL = "INSERT INTO niveau VALUES( 'today' ,'niveau' )" Set objConnection = CreateObject("ADODB.Connection") objConnection.ConnectionString = str objConnection.CursorLocation = 3 objConnection.Open If Err.Number <> 0 Then mess = MsgBox("Pas de connexion", 0, "Erreur") Err.Clear End If Set oRs = CreateObject("ADODB.Recordset") Set objCommand = CreateObject("ADODB.Command") objCommand.CommandType = 1 Set objCommand.ActiveConnection = objConnection objCommand.CommandText = strSQL Set oRs = objCommand.Execute If Err.Number <> 0 Then mess = MsgBox("Erreur d'execution: 02", 0, "Erreur") Err.Clear End If Set objCommand = Nothing objConnection.Close Set objConnection = Nothing End Sub est ce que quel q'un peut me aide merci d'avence
|
|
|
|
vendredi 29 août 2008 à 15:07:42 |
Re : vba
Exploreur
|
Réponse acceptée !
Salut, Déjà recommence ta question plus proprement pour que l'on puisse mieux comprendre ton problème...car la mise en page n'est pas vraiment super chouette ^^ A+
Exploreur
 Linux a un noyau, Windows un pépin
|
|
|
|
lundi 1 septembre 2008 à 10:27:38 |
Re : vba
jrivet
|
Réponse acceptée !
Salut, Si tu cherches à insérer dans ta table Niveau , le Niveau et la Date à un instant T j'essaierai pêu etre => Si cela ne convient pas, donne nous peut être TOUTES les colonnes de la table Niveau car il est possible qu'il faille les renseigner lors de l'ajout. Private Sub Group1_Click()
Dim today As String
Dim str As String
Dim strSQL As String
Dim niveau As Variable
Dim objConnection, objCommand,
today = Now
Set niveau = Variables.Add("Device1.Niveau")
str = "provider=msdasql; Initial Catalog= mohamed ; DSN=mohamed"
Set objConnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString = str
objConnection.CursorLocation = 3
objConnection.Open
If Err.Number <> 0 Then
mess = MsgBox("Pas de connexion", 0, "Erreur")
Err.Clear
End If
strSQL = "INSERT INTO niveau (Today, Niveau) VALUES(" & today & " ,'" & niveau & "' )"
'Ou alors strSQL = "INSERT INTO niveau (Today, Niveau) VALUES('" & Today & "' ,'" & niveau & "' )"
Set objCommand = CreateObject("ADODB.Command")
objCommand.CommandType = 1
Set objCommand.ActiveConnection = objConnection
objCommand.CommandText = strSQL
Call objCommand.Execute
If Err.Number <> 0 Then
mess = MsgBox("Erreur d'execution: 02", 0, "Erreur")
Err.Clear
End If
Set objCommand = Nothing
objConnection.Close
Set objConnection = Nothing
End Sub | | By Renfield |
@+: Ju£i¤n
Pensez:  Réponse acceptée
|
|
|
|
lundi 1 septembre 2008 à 10:28:19 |
Re : vba
jrivet
|
Réponse acceptée !
Re, Oups une petite erreur s'est glissée dans la ligne Dim objConnection, objCommand,
deviendra
Dim objConnection, objCommand 'et oui pas besoin de virgule@+: Ju£i¤n
Pensez: Réponse acceptée
|
|
|
|
mardi 2 septembre 2008 à 09:58:54 |
Re : vba
sofien86
|
j déjà trouver la solution et voila la solution si quel q' un peut ce servie un jour merci pour vous de m'avoir aider plus précisément dans le logicielle Vijeo look c un logicielles de super vision j'ai voulu criée un bouton dan le quelle a chaque fois que je click a ce bouton il enregistre la niveau et la date a une instant t en utilisent le SQL comme une base c tou alor j trouvé en fin la solution suivante Private Sub Group1_Click() Dim mess Dim today As String today = Now Dim str, objConnection, objCommand, oRs, strSQL Dim niveau As Variable Set niveau = Variables.Add("Device1.Niveau") str = "provider=msdasql; Initial Catalog= mohamed ; DSN=mohamed" strSQL = "INSERT INTO niveau VALUES( '" & today & "' ,'" & niveau & "' )" Set objConnection = CreateObject("ADODB.Connection") objConnection.ConnectionString = str objConnection.CursorLocation = 3 objConnection.Open If Err.Number <> 0 Then mess = MsgBox("Pas de connexion", 0, "Erreur") Err.Clear End If Set oRs = CreateObject("ADODB.Recordset") Set objCommand = CreateObject("ADODB.Command") objCommand.CommandType = 1 Set objCommand.ActiveConnection = objConnection objCommand.CommandText = strSQL Set oRs = objCommand.Execute If Err.Number <> 0 Then mess = MsgBox("Erreur d'execution: 02", 0, "Erreur") Err.Clear End If Set objCommand = Nothing objConnection.Close Set objConnection = Nothing End Sub
|
|
|
|
mardi 2 septembre 2008 à 10:18:16 |
Re : vba
sofien86
|
Réponse acceptée !
merci jrivet
|
|
|
|
mardi 2 septembre 2008 à 10:21:23 |
Re : vba
sofien86
|
Réponse acceptée !
mon nouveau problem c a chaque fois que je cherche une date il faut que je retourne et alez jusque le serveur pour voitr la table dans SQL je veux creé une bonde (date de debu de recherche, date du fin de recherche ) et a chaque fois que je fai entre les date il me indique tout les enregistrement de ce intervale dans le SQL je sui debuton, Si quelqun peut me aide je c pas si je cree un table dans le vba ou je f quoi exactement ??? Merci
|
|
|
|
mardi 2 septembre 2008 à 10:27:16 |
Re : vba
jrivet
|
Réponse acceptée !
Salut, Regarde comment faire une requete SELECT Aide SELECT * FROM Niveau WHERE today BETWEEN DateDeb AND DateFin => il faudra mettre DateDeb Et DateFIn comme je te montrait pour inserer la valeur de ta varaible Today @+: Ju£i¤n
Pensez: Réponse acceptée
|
|
|
|
mardi 2 septembre 2008 à 10:34:36 |
Re : vba
sofien86
|
merci pour votre reponse mes si tu peut me envoiyer un exemple par ce que je sui debuton merci infiniment
|
|
|
|
mardi 2 septembre 2008 à 10:38:07 |
Re : vba
jrivet
|
Réponse acceptée !
Salut, Je te mets sur la piste, a toi de chercher sur le Web. @+: Ju£i¤n
Pensez: Réponse acceptée
|
|
|
Cette discussion est classé dans : set, niveau, objcommand, objconnection, if
 Répondre à ce message
 Sujets en rapport avec ce message
[VBS] recherche AD dans une OU (et pas dans les sous OU) [ par parker13 ]
Bonjour,Le script ci-dessous permet de rechercher tous les comptes d'ordinateurs à partir d'une OU donnée dans toutes les sous
Objet Command [ par neimad58 ]
Bonjour,je suis débutant avec ADO sur VB pour Excel, et je n'arrive pas à utiliser l'objet Command correctement.Au niveau de l'execution, le compilate
script vbs vers AD [ par tsotb ]
salut !j'ai un script vbs (trouvé dans l'aide de vbs factory) pour récupérer la liste des ordinateurs qui se trouvent ds Acrtive Directory.voici ce co
Changer le compte expéditeur selon adresse du destinataire [ par trenard ]
Bonjour,Débutant en VBA, je cherche un code qui pourrait changer le compte Expéditeur selon l'adresse destinataire pour outllook 2003 et 2007.Ex: si d
Suprimer les dossiers vieux de 15 jours [ par McDEV04 ]
Re bonjour J'essaye de créer un script qui supprime dans un répertoir, les sous-dossier vieux de 15 jours J'ai essayé de faire ce que j'ai pu avec mes
Erreur 70 [ par aducloux ]
re re re re re re bonjour :ce coup-ci quand je lance mon code j ai une erreur 70 qui apparait et qui me dit que je n ai pas l accees... j ai cherche s
Script VBS sur serveur windows 2003 [ par lolo9244 ]
Bonjour, Au boulot j'ai un script vbs sur un serveur windows 2003 serveur sur active directory.J'ai un probleme de compatibilté avec windows XP et 2
Ditributeur de fichiers en réseau [ par neo2k2 ]
Bonjour,Je suis penché sur une application professionelle toute simple dont le but est de comparer les versions des programmes installés sur les pc ci
Enchainer les fonction [ par medeuy ]
bonjour, j'aimerai savoir si il existe un code VBA sous excel pour enchainer deux fonction l'une après l'autre.Merci Dim reponse As BooleanDim repon
Envoi multiple de mails à partir d'Excel vers Notes [ par vincolo ]
Bonjour à tous et tout d'abord merci d'avance à l'intérêt que vous pouvez portez à la requête présentée ci-dessous,je vous explique mon problème:pour
 Livres en rapport
|
 Téléchargements
Logiciels à télécharger sur le même thème :
|