[VB6]-Creare un nuovo campo in DB

[Pinco Pallino 2]

Come creo via codice un nuovo campo in una tabella esistente nel mio database?

[LMondi]

Ti posto questo esempio che preseppone l'uso di Access:

Code:
Private Sub CmndInserisciNuovo_Click()
Dim Connes As New ADODB.Connection
Dim RST As New ADODB.Command

'Esegue la connessione con il DataBase:
Connes.ConnectionString = StringaConnessione
Connes.CommandTimeout = 15
Connes.Open

RST.ActiveConnection = Connes
RST.CommandType = adCmdText
RST.CommandText = "Alter Table TblDatiPersonali ADD
Fax Number Null"
RST.Execute

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

Saluti.

[Pinco Pallino 2]

grazie mille!
Spero un giorno di potermi sdebitare!
CIAO|!

[Pinco Pallino 2]

Solo 2 cosette!

Ho modificato il tuo codice in questo modo per avere campi di testo e nn numerici:

RST.CommandText = "Alter Table TblDatiPersonali ADD nome Text Null"

E il campo lo crea ma con tipo di MEMO e non testo!

la seconda cosa è questa:

Se volessi modificare la lunghezza di caratteri di un campo già esistente (portarla da 50 a 255) come devo fare?


Se risolvo sti 2 problemi ho finito di programamre il mio software!
HELP!

[zero85]

Forse dico una superca%$£a ma prova a modificare così:

RST.CommandText = "Alter Table TblDatiPersonali ADD nome CHAR(255) Null"

[LMondi]

In Access, aperta la tabella, devi andare in visualizzazione struttura e modificare le proprietà del campo: dimensione campo (max 255 caratteri); Tipo di dati Testo.
Ciao.

[Pinco Pallino 2]

Originariamente inviato da zero85
Forse dico una superca%$£a ma prova a modificare così:

RST.CommandText = "Alter Table TblDatiPersonali ADD nome CHAR(255) Null"

Funziona! Ora rimane il secondo problema!

Originariamente inviato da LMondi
In Access, aperta la tabella, devi andare in visualizzazione struttura e modificare le proprietà del campo: dimensione campo (max 255 caratteri); Tipo di dati Testo.
Ciao.

Si lo so...è che devo farlo via codice!
Sto programmando un update di un software e devo aggiornar il database via codice visto che molte persone che hanno il programma non hanno nemmeno access!

grazie ancora

[Pinco Pallino 2]

ho visto su internet che per modificare il campo si una una cosa del genere:

RST.CommandText = "ALTER TABLE miaTabella MODIFY campoDaModificare text(255)"
RST.Execute

solo ke mi da errore di sintassi.....

[LMondi]

Ho capito. in questo momento ho postato un'altra risposta, ma l'esembio fa anche il caso tuo. Il codice imposta un campo Text di caratteri (50) e (100)e crea una tabella di nome clienti2, con chiave primaria IDCliente:

Code:
RST.CommandText = "create table clienti2(IDCliente autoincrement primary Key, Nome Text(50) Not Null, Cognome Text(50) Not Null, Datanacita date Not null, Indirizzo Text(100))"

Saluti

[Pinco Pallino 2]

ma io la tabella l'ho già! Devo solo modificare il campo!
o n ti ho capito?