[VB.NET] Verificare se una tabella esiste

[x69asterix]

ciao,
1)vi chiedo se esiste un modo per verificare l' esistenza di una tabella all' interno di un db.sdf?

2)Poi non capisco il perchè se eseguo:

Dim create, create1 As String
            Dim eng As SqlCeEngine
            eng = New SqlCeEngine("Data Source=" + db)
            eng.CreateDatabase()
            create = "CREATE TABLE ore(Giorno nvarchar(20) PRIMARY KEY not null,Causale nvarchar(20) not null,Entrata nvarchar(30) not null,Uscita nvarchar(30) not null,Totale nvarchar(30) not null)"
            ExecSql(create)
            create1 = ("CREATE TABLE ferie(Data nvarchar(20) PRIMARY KEY not null,Giorni nvarchar(20) not null,Altro nvarchar(30) not null,Rimanenza nvarchar(30) not null,Residuo nvarchar(30) not null)")
            ExecSql(create1)
                        Me.Close()

Mi vengono create le due tabelle, ma se invece ne volessi creare 3
codice:

Dim create, create1, create2 As String
            Dim eng As SqlCeEngine
            eng = New SqlCeEngine("Data Source=" + db)
            eng.CreateDatabase()
            create = "CREATE TABLE ore(Giorno nvarchar(20) PRIMARY KEY not null,Causale nvarchar(100) not null,Entrata nvarchar(30) not null,Uscita nvarchar(30) not null,Totale nvarchar(30) not null)"
            ExecSql(create)
            create1 = ("CREATE TABLE ferie(Data nvarchar(20) PRIMARY KEY not null,Giorni nvarchar(20) not null,Altro nvarchar(30) not null,Rimanenza nvarchar(30) not null,Residuo nvarchar(30) not null)")
            ExecSql(create1)
            create2 = "CREATE TABLE riepilogo(Congedo nvarchar(20) PRIMARY KEY not null,Malattia nvarchar(100) not null,P.r nvarchar(30) not null,104 nvarchar(30) not null,Malattia nvarchar(30) not null)"
            ExecSql(create2)
            Me.Close()

di queste me ne vengono create sempre 2, perchè?

[oregon]

Semplicemente perche' utilizzi dei nomi di campi non consentiti ...

Non puoi utilizzare un campo che si chiama

104

perche' 104 e' un numero!

Semmai chiamalo L104 ...

Lo stesso per P.r .... evita i punti nei nomi dei campi e chiamalo

Pr

Per ultimo, anche se non e' importante, non e' necessario usare piu' variabili ... ne basta una sola

  create = "CREATE TABLE ore(Giorno nvarchar(20) PRIMARY KEY not null,Causale nvarchar(100) not null,Entrata nvarchar(30) not null,Uscita nvarchar(30) not null,Totale nvarchar(30) not null)"
  ExecSql(create)
  create = "CREATE TABLE ferie(Data nvarchar(20) PRIMARY KEY not null,Giorni nvarchar(20) not null,Altro nvarchar(30) not null,Rimanenza nvarchar(30) not null,Residuo nvarchar(30) not null)"
  ExecSql(create)
  create = "CREATE TABLE riepilogo(Congedo nvarchar(20) PRIMARY KEY not null,Malattia nvarchar(100) not null, Pr nvarchar(30) not null, L104 nvarchar(30) not null,Malattia nvarchar(30) not null)"
  ExecSql(create)

[x69asterix]

buongiorno oregon,
purtroppo non cambia nulla!

Dim create As String
            Dim eng As SqlCeEngine
            eng = New SqlCeEngine("Data Source=" + db)
            eng.CreateDatabase()
            create = "CREATE TABLE ore(Giorno nvarchar(20) PRIMARY KEY not null,Causale nvarchar(20) not null,Entrata nvarchar(30) not null,Uscita nvarchar(30) not null,Totale nvarchar(30) not null)"
            ExecSql(create)
            create = ("CREATE TABLE ferie(Data nvarchar(20) PRIMARY KEY not null,Giorni nvarchar(20) not null,Altro nvarchar(30) not null,Rimanenza nvarchar(30) not null,Residuo nvarchar(30) not null)")
            ExecSql(create)
            create = "CREATE TABLE riepilogo(Congedo nvarchar(20) PRIMARY KEY not null,Malattia nvarchar(100) not null,Pr nvarchar(30) not null,L104 nvarchar(30) not null,Malattia nvarchar(30) not null)"
            ExecSql(create)
            Me.Close()

sono sempre 2

[oregon]

Rileggendo molto attentamente l'ultima frase SQL (cosa che avresti dovuto fare), ho visto che hai specificato due volte lo stesso campo Malattia ...

[x69asterix]

ok scoperto l' arcano!

create = "CREATE TABLE riepilogo(Congedo nvarchar(20) PRIMARY KEY not null,Malattia nvarchar(100) not null , Pr nvarchar(30) not null, L104 nvarchar(30) not null,Malattia nvarchar(30) not null )"
  ExecSql(create)

[oregon]

Infatti ... te lo avevo detto ...

Devi fare un po' piu' attenzione ... sono quasi sempre disattenzioni ...

Le tabelle si progettano "sulla carta" ... si scrivono i campi e il loro scopo ... e non si sbaglia.

Per esempio, non capisco come non ci sia neanche un campo numerico ma siano tutte stringhe di caratteri .... sei sicuro? Potresti avere problemi dopo ... imposta *correttamente* ora le tabelle ...

[x69asterix]

allora per quanto riguarda la tabella ore la lascio così come lo esposta, invece ho modificato le altre due:

 create = "CREATE TABLE riep(Cong numeric PRIMARY KEY not null,H numeric not null,Pr numeric not null,L104 numeric not null)"
            ExecSql(create)
            create = "CREATE TABLE ore(Giorno nvarchar(20) PRIMARY KEY not null,Causale nvarchar(20) not null,Entrata nvarchar(30) not null,Uscita nvarchar(30) not null,Totale nvarchar(20) not null)"
            ExecSql(create)
            create = ("CREATE TABLE ferie(Data nvarchar(20) PRIMARY KEY not null,Giorni numeric not null,Altro nvarchar(30) not null,Rimanenza numeric not null,Residuo numeric not null)")
            ExecSql(create)

ho ancora da chiedere una cosa, ma se volessi effettuare la somma di ferie, per sapere quante ferie sono state usufruite come posso fare?

l' istruzione dovrebbe essere:

 ExecSql("SELECT SUM Giorni FROM ferie")

ma il risultato come lo visualizzo?

[alka]

Originariamente inviato da x69asterix
ho ancora da chiedere una cosa, ma se volessi effettuare la somma di ferie, per sapere quante ferie sono state usufruite come posso fare?

Sì, ma il titolo del thread è Verificare se una tabella esiste... ciascuna discussione deve essere dedicata ad una domanda, di cui il titolo reca una descrizione possibilmente significativa.