+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 4 su 4

Nomi Tabelle

  1. #1
    guido_gilli non è in linea Novello
    Post
    6
    Like Inviati  
    0
    Like Ricevuti  
    0
    Ho bisogno di avere un elenco delle tabelle contenute in un DataBase per verificare che ci siano quelle che mi servono ed in caso di mancanza crearle.
    Esiste una funzione che mi dia questo risultato?

    Grazie

    GuidoG
    ℹ️ Leggi di più su guido_gilli ...

  2. #2
    L'avatar di Cteniza
    Cteniza non è in linea Amanuense
    Post
    4,378
    Blogs
    36
    Like Inviati  
    0
    Like Ricevuti  
    0
    Ti copioincollo una mia prova:
    Set cnn = New ADODB.Connection
    With cnn
    .CursorLocation = adUseClient
    .Provider = "Microsoft.Jet.OLEDB.4.0;"
    .Open "Data Source=" + Me.txtDb + ";"
    'Collegamento ad un foglio excel
    'cnn.ConnectionString = "MSDASQL.1;Persist Security Info=False;Extended Properties=""DSN=File di Microsoft Excel;DBQ=C:\svil\Excel\Cartel1.xls;DefaultDir=C:\ svil\Excel;DriverId=790;MaxBufferSize=2048;PageTim eout=5;"""
    End With
    'cnn.Open
    If Combo1.ListIndex = 0 Then
    Set rsSchema = cnn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))
    'ottiene i fogli contenuti dentro excel
    'Set rsSchema = cnn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, Empty))
    ElseIf Combo1.ListIndex = 1 Then
    Set rsSchema = cnn.OpenSchema(adSchemaColumns, _
    Array(Empty, Empty, Empty))
    Else
    Set rsSchema = cnn.OpenSchema(adSchemaProcedures, Array(Empty, Empty, Empty, Empty))
    End If

  3. #3
    L'avatar di chico_
    chico_ non è in linea Topo di biblioteca Ultimo blog: Attacco a Oscommerce
    Post
    2,056
    Blogs
    4
    Like Inviati  
    0
    Like Ricevuti  
    0
    Ecco un esempio di elenco nomi tabelle e relativi campi:
    Option Explicit
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim rs1 As ADODB.Recordset
    Private Sub Form_Load()
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
            & "c:\TuoDatabase.mdb" _
            & ";Persist Security Info=False"
    rs.CursorType = adOpenKeyset
    rs.LockType = adLockOptimistic
    Set rs = cn.OpenSchema(adSchemaTables)
    Do Until rs.EOF
       If rs!table_type = "TABLE" Then
       Debug.Print "Nome tabella: " & rs!Table_name
       Call ElencaCampi(rs!Table_name)
       End If
       rs.MoveNext
    Loop
    rs.Close
    cn.Close
    End Sub
    
    Sub ElencaCampi(Tabella As String)
    Dim x As Integer
    Set rs1 = New ADODB.Recordset
    rs1.Open ("select * from " & Tabella), cn 
    For x = 1 To rs1.Fields.Count
    Debug.Print "--------->" & rs1.Fields(x - 1).Name
    Next
    rs1.Close
    End Sub
    
    Ciauz

    Chico
    ℹ️ Leggi di più su chico_ ...

  4. #4
    guido_gilli non è in linea Novello
    Post
    6
    Like Inviati  
    0
    Like Ricevuti  
    0
    Ringrazio Sentitamente
    GuidoG
    ℹ️ Leggi di più su guido_gilli ...

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. creare tabelle con nomi variabili
    Da cecilia59 nel forum Microsoft Access
    Risposte: 13
    Ultimo Post: 23-10-2017, 09:05
  2. nomi tabelle e varie
    Da sasy_80 nel forum Microsoft Access
    Risposte: 9
    Ultimo Post: 23-05-2014, 13:54
  3. nomi tabelle
    Da John nel forum Microsoft Word
    Risposte: 4
    Ultimo Post: 06-02-2007, 14:34
  4. Risposte: 14
    Ultimo Post: 04-01-2007, 10:46
  5. Leggere i nomi delle tabelle del db
    Da Zigo nel forum Visual Basic .Net
    Risposte: 1
    Ultimo Post: 04-01-2006, 12:04