Import SQL nom de serveur non valide

Version imprimable

20/07/2012, 16h39
Connectedby

Import SQL nom de serveur non valide

Bonjour,

Lorsque sous excel je fais une importation à partir dune table SQL il me demande le nom du serveur.
Ma base SQL nommée 'test' est sur mon ordi en local elle contient 2 rubriques.

J'écris localhost:3306 ou test@loaclhost:3306 mais il ne trouve rien (connection non valide)

Pour l'instant j'essaie juste d'importer des données, ensuite ce sera une macro qui devra faire la mise à niveau à chaque ouverture et la sauvergarde vers sql.

J'y vais donc progressivement;

Merci pour toute aide éventuelle.
22/07/2012, 16h14
AlainTech

Bonjour,

Si tu nous montrais ta chaîne de connexion complète, on pourrait, peut-être, t'aider.

Excel import SQL

Bonjour,

j'essaie de lire une table mysql depuis excel par macro vba.
Ci dessous la macro
avec
nom de la table: pubs en localhost
login: root
mdp: 1234

Le problème est qu'il n'arrive pas à se connecter.

Code:

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
32
33
34
35
36
37
38
39
40
41
42
43
Sub dataextract()
'
' dataextract Macro
' Create a connection object.
Dim cnPubs As ADODB.Connection
Set cnPubs = New ADODB.Connection
 
' Provide the connection string.
Dim strConn As String
 
'Use the SQL Server OLE DB Provider.
strConn = "PROVIDER=SQLOLEDB;"
 
'Connect to the Pubs database on the local server.
strConn = strConn & "DATA SOURCE=(local);INITIAL CATALOG=pubs;"
 
'Use an integrated login.
strConn = "server=localhost; database=pubs; login=root; pwd=1234"
'Now open the connection.
cnPubs.Open strConn
 
 
' Create a recordset object.
Dim rsPubs As ADODB.Recordset
Set rsPubs = New ADODB.Recordset
 
With rsPubs
    ' Assign the Connection object.
    .ActiveConnection = cnPubs
    ' Extract the required records.
    .Open "SELECT * FROM ville"
    ' Copy the records into cell A1 on Sheet1.
    Sheet1.Range("A1").CopyFromRecordset rsPubs
 
    ' Tidy up
    .Close
End With
 
cnPubs.Close
Set rsPubs = Nothing
Set cnPubs = Nothing
 
End Sub

25/07/2012, 20h15
AlainTech

Bonjour,

Il ne manque pas un "strConn & " sur la dernière ligne strConn = ...?