Discussion :

[novice06]

bonjour,

je vous expose mon problème

j'ai une application access dans laquelle j'ai mis des tables liées qui pointe sur une base sql dont par la force des choses je connais le nom du serveur, le nom d'utilsateur et mot de passe pour me connecter au serveur et le nom de la base sql.

mais est-ce que je peux créer via mon appli access une nouvelle table directement dans cette base sql ?

du style

créer une table nommé TableExemple(champ1 comme texte, champ2 comme nombre) champ nommé NomExemple, NumExemple depuis MaBaseAccess vers \\serveur\NomBaseSql ( nom utilisateur; mot de passe)


merci pour vos conseils

bonne journée

[Geache]

Bonjour,

Une piste, peut-être, les tutos... entre-autre, celui-ci :

http://ledzeppii.developpez.com/odbc-access/

[novice06]

bonjour,

ce code bloque sur

Code :

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

Set tdfNew = Conn.Database.CreateTableDef("Thermo_test")

avec comme message d'erreur:

Code :

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

Erreur N° 3251 Opération non autorisée pour ce type d'objet

merci d'avance

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Private Sub Commande0_Click()
Dim Wksp As DAO.Workspace, Conn As DAO.Connection, strODBCconn As String
Dim rs As DAO.Recordset, strSQL As String, lgIdFournisseur As Long
Dim strUID As String, strPWD As String
Dim errX As DAO.Error, strErrMsg As String
Dim tdfNew As TableDef
Dim prpLoop As Property
 
 
strUID = "admin"
strPWD = "pwdok"
 
On Error GoTo ERRH
 
Set Wksp = DBEngine.CreateWorkspace("MonWkspODBC", strUID, strPWD, dbUseODBC)
 
strODBCconn = "ODBC;" & _
          "DSN=DSN_TEST;" & _
          "UID=" & strUID & ";PWD=" & strPWD & ";" & _
          "WSID=" & Environ("COMPUTERNAME") & ";" & _
          "DATABASE=BASE_OK;" & _
          "Network=DBMSSOCN"
 
Set Conn = Wksp.OpenConnection("DSN_TEST", dbDriverNoPrompt, False, strODBCconn)
 
Set tdfNew = Conn.Database.CreateTableDef("Thermo_test")
 
With tdfNew
      .Fields.Append .CreateField("Ligne", dbText)
      .Fields.Append .CreateField("Per", dbText)
      .Fields.Append .CreateField("Graph", dbText)
      .Fields.Append .CreateField("Modif", dbBoolean)
   End With
ERRH:
 
strErrMsg = "Erreur N° " & CStr(Err.Number) & " : " & Err.Description
Select Case Err.Number
 
    Case 3146, 3151, 3154, 3155, 3156, 3157, 3231, 3232, 3234, 3225, 3238, 3247, 3254
        strErrMsg = strErrMsg & vbCrLf & vbCrLf & _
           ">>> Erreurs complémentaires DAO :" & vbCrLf & _
           "======================"
 
        For Each errX In DBEngine.Errors
            strErrMsg = strErrMsg & vbCrLf & Format(errX.Number, "00000") & " : " & errX.Description
        Next
End Select
 
MsgBox strErrMsg
 
End Sub

[novice06]

bonjour,


si cela peut aider !!?

voici ce que j'ai codé opur arriver à mes fin...passer par une table copy dans ma base access qui me servira de source pour exporter dans la base sql serveur

sans oublier une fois la table créer sur le sql server de créer le lien sur ma base access et de lui attribuer un index

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub Commande10_Click()
 
Dim strConn As String
Dim db As DAO.Database
Dim td As DAO.TableDef
Dim strIndex As String
Dim strUID As String, strPWD As String
 
 
DoCmd.SetWarnings False
 
strUID = "admin"
strPWD = "pswok"
 
 
 
strConn = "ODBC;" & _
          "DSN=DSN_NOM;" & _
          "UID=" & strUID & ";PWD=" & strPWD & ";" & _
          "WSID=" & Environ("COMPUTERNAME") & ";" & _
          "DATABASE=BASE_NOM;" & _
          "Network=DBMSSOCN"
 
 
DoCmd.TransferDatabase acExport, "Base de données ODBC", strConn, _
      acTable, "Thermo_Copy", "Thermo", False, True
 
 
Set db = CurrentDb
Set td = db.CreateTableDef("dbo_Thermo")
td.Attributes = td.Attributes Or dbAttachSavePWD
td.Connect = strConn
td.SourceTableName = "dbo.Thermo"
db.TableDefs.Append td
Set td = Nothing
 
 
Application.RefreshDatabaseWindow
 
strIndex = "CREATE UNIQUE INDEX __uniqueindex " & _
           "ON  dbo_Thermo ([Id]) WITH PRIMARY"
db.Execute strIndex, dbFailOnError
 
db.Close
Set db = Nothing
 
DoCmd.SetWarnings True
 
End Sub