Discussion :

[tequillaman]

Bonjour à tous,
J'ai une nouvelle question VBA qui concerne aussi SQL.
Je voudrais que quand je clic sur un bouton, j'envoi des données dans une base de données SQL.

J'ai trouvé se bout de code sur le site de microsoft qui me permets de me connecter a la base de donnée sauf que ma connexion ne se fait pas par authentification Windows.
Je ne trouve pas les lignes a utiliser pour renseigner directement les paramétrages de connections avec une authentification sql.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
'Initialisation des variables
    Dim cn As New ADODB.Connection
 
    'Specification du fournisseur OLE DB
    On Error GoTo DisplayErrorInfo
    cn.Provider = "sqloledb"
 
    'Propriétés de la connexion SQLOLEDB
    cn.Properties("Data Source").Value = "APEDBSDDC806"
    cn.Properties("Initial Catalog").Value = "SUIV_BIL_CC"
 
    'Authentification windows
    cn.Properties("Integrated Security").Value = "SSPI"
 
    'Ouverture de la base de données.
    cn.Open
 
 
    'ICI LES DIFFERENTES REQUETES SQL
 
 
    'Fermeture de la connexion
    cn.Close
 
    'Etiquettes de gestion des erreurs
    GoTo DisplayEnd
 
DisplayErrorInfo:
        MsgBox ("Impossible de se connecter à la base de données")
        GoTo DisplayEnd
DisplayEnd:

Je n'ai pas de soucis pour mettre les info de connexion en dur car ils sont utilisé que pour se fichier qui sera verrouillé et utilisé par une seule personne.


Merci par avance pour vos lumières

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

GenereCSTRING = "Provider=SQLNCLI;Server=" & Server & ";Database=" & BASE & ";UID=" & User & ";PWD=" & PassWord & ";"

[tequillaman]

Merci pour ta réponse, malheureusement je n'ai pas réussi à la mettre en application.
Je pense avoir réussi avec se code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Public connexion As ADODB.Connection
 
 
Sub connectionbdd()
Set connexion = New ADODB.Connection
connexion.Provider = "SQLNCLI"
connexion.Properties("Data Source").Value = "xxxx.xxx.net"
connexion.Properties("User Id").Value = "user"
connexion.Properties("Password").Value = "pass"
connexion.Open
 
Call MAJ
 
connexion.Close
 
 
End Sub
 
 
Private Sub MAJ()
MsgBox "yo"
Dim Sql As String
 
Sql = "INSERT INTO matable" & _
    "VALUES(&a12&,&b12&,&c12&,&d12&, &e12&,&f12&,&g12&,&h12&,&i12&,&j12&,&k12&,&l12&,&m12&,&n12&,&o12&,&p12&,&q12&,&r12&,&s12&,&t12&,&u12&,&v12&,&w12&,&x12&,&y12&,&z12&,&aa12&,&ab12&,&ac12&,&ad12&, &ae12&,&af12&,&ag12&,&ah12&,&ai12&,&aj12&,&ak12&,&al12&,&am12&);"
docmd.RunSQL Sql
End Sub

j'ai un soucis avec ma macro pour insérer des données. j'ai une erreur sur la ligne docmd.runsql sql
J’espère également que ma requête sql est bonne.

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
GenereCSTRING = "Provider=SQLNCLI;Server=" & Server & ";Database=" & BASE & ";UID=" & User & ";PWD=" & PassWord & ";"
connexion.Open GenereCSTRING

Code Sql 2005 Express :

Sélectionner tout - Visualiser dans une fenêtre à part

 GenereCSTRING = "Provider=SQLOLEDB.1;Password=" & PassWord & ";Persist Security Info=True;User ID=" & User & ";Initial Catalog=" & BASE & ";Data Source=" & Server

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Select Case TYPEBASE
    Case ExcelAvecTire
        GenereCSTRING = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & BASE & ";Extended Properties=""Excel 12.0;HDR=YES;"""
    Case ExcelSensTire
        GenereCSTRING = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & BASE & ";Extended Properties=""Excel 12.0;HDR=no;"""
    Case ACCESS97
        GenereCSTRING = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & BASE 
    Case ACCESS2000
        GenereCSTRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & BASE & ";Persist Security Info=False"
    Case ACCESS2012
        GenereCSTRING = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & BASE & ";"          
    Case ODBC
        GenereCSTRING = "Provider=MSDASQL.1;Password=" & PassWord & ";Persist Security Info=True;User ID=" & User & ";Data Source=" & BASE
    Case ORACLE
        GenereCSTRING = "Provider=OraOLEDB.Oracle.1;Password=" & PassWord & ";Persist Security Info=True;User ID=" & User & ";Data Source=" & BASE
    Case SQLSERVER2005
        GenereCSTRING = "Provider=SQLOLEDB.1;Password=" & PassWord & ";Persist Security Info=True;User ID=" & User & ";Initial Catalog=" & BASE & ";Data Source=" & Server
    Case SQLServer2008R2
        GenereCSTRING = "Provider=SQLNCLI;Server=" & Server & ";Database=" & BASE & ";UID=" & User & ";PWD=" & PassWord & ";"
    Case SQLite
        GenereCSTRING = "Driver={SQLite ODBC (UTF-8) Driver};Database=" & BASE & ";StepAPI=;Timeout="
    Case SQLite3
        GenereCSTRING = "Driver={SQLite3 ODBC Driver};Database=" & BASE & ";LongNames=0;Timeout=4000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;"
    Case CSV
        GenereCSTRING = "ODBC;DBQ=" & BASE & ";Driver={Microsoft Text Driver (*.txt; *.csv)};DriverId=27;Extensions=txt,csv,tab,asc;FIL=text;MaxBufferS"
    Case Else
        GenereCSTRING = "PAS ASSEZ DE PARAMETRES RENSEIGNES !!!"
End Select

[tequillaman]

generecstring doit être déclaré comme sa?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Public GenereCSTRING As ADODB.connection

Je ne comprends pas le dernier bloc de code avec select case type base.

[Invité]

nom comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
dim GenereCSTRING  as string,BASE   as string,User  as string,PassWord  as string
 
BASE = "xxxx.xxx.net"
User   = "user"
PassWord   = "pass"
 
GenereCSTRING = "Provider=SQLNCLI;Server=" & Server & ";Database=" & BASE & ";UID=" & User & ";PWD=" & PassWord & ";"
 
connexion.Open GenereCSTRING