[VB6] Creare una tabella direttamente dal codice

[LMondi]

Se si tratta di creare una Tbl da codice, posto di seguito un esempio che dovrai approfondire e modificare secondo le tue esigenze:

Private Sub CmndCreaTabella_Click()                       'Crea la Tabella Dati Personali
Dim Connes As New ADODB.Connection
Dim RST As New ADODB.Command
 
 'Esegue la connessione con il DataBase:
    If Connes.State = False Then
      Connes.ConnectionString = StringaConnessione
      Connes.CommandTimeout = 15
      Connes.Open
     End If
  
        RST.ActiveConnection = Connes
        RST.CommandType = adCmdText
        RST.CommandText = "create Table TblDatiPersonali(IDDati autoincrement primary Key, Titolo VarChar(20), Nome VarChar(100), Cognome VarChar(100), Via VarChar(50), Città VarChar(100), CAP VarChar(10), Telefono VarChar(50) Not null)"
        RST.Execute

 'Chiude la connessione:
        Connes.Close
        Set Connes = Nothing

End Sub