vb6 creare tabelle e altro

[ciro78]

salve

uso vb6 e per gestire i database ado

vorrei sapere come faccio a creare e ad eliminare una tabella da un database(magari anche i singoli campi)

Dim connessione As ADODB.Connection
Dim comando As ADODB.Command
Dim record As ADODB.Recordset

Private Sub Form_Load()
Set connessione = New ADODB.Connection
connessione.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=E:\VISBAS\VB\rubrica.mdb"
Set comando = New ADODB.Command
comando.ActiveConnection = connessione
comando.CommandType = adCmdText
comando.CommandText = "CREATE TABLE ciccio create field ciccio,pippo"
comando.Execute
MsgBox "UA"
End Sub

il codice sopra mi crea la tabella ma non i campi
come posso fare.

grazie

[xegallo]

http://forum.html.it/forum/showthrea...hreadid=578354

[ciro78]

ciao grazie per aver risposto
ma non è possibile farlo tramite sql
sai mi servirebbe sapere quello(premetto che sono molto inesperto)

[macse]

Allora in teoria dovrebbe andare benissimo, ma non ho mai provato:

Nella CommandText gli devi passare la stringa SQL che contiene tutte le informazioni per le tabelle, ti posto un esempio:

SQLSTR = "CREATE TABLE UTENTI (ID INTEGER, NOME CHAR(30), DATA_NASC DATE, DESCR CHAR(100))"

comando.CommandText=SQLSTR
comando.Execute


Mi correggo funziona ho appena provato.

i tipi di dati sono:
CHAR(n) n è il numero dei caratteri
DATE
DECIMAL(p,q) p sono le cifre della parte intera e q il numero della parte decimale(123,45-> p=3 e q=2)
INTEGER intervallo a 32bit con un bit di segno
SMALLINT intervallo a 16bit con un bit di segno

per implementare il fatto che un campo deve essere pieno:
usa NOT NULL
es.:
CREATE TABLE UTENTI (ID INTEGER, NOME CHAR(30) NOT NULL, DATA_NASC DATE, DESCR CHAR(100) NOT NULL)

Per eliminare una tabella:
usa DROP TABLE
es.:
DROP TABLE UTENTI

NB: la Drop elimina tutta la tabella.

OK?
Per il resto ti consiglio comunque di comperarti un libro su SQL anche perchè ci sono tantissimo cose che puoi fare con SQL.

Macse

[ciro78]

grazie sei stato molto gentile
a buon rendere

[mardok30]

Sono riuscito a creare la tabella ma è sorto un piccolo problema in particolare con i campi di testo, se metto:
codicearticolo CHAR(25)
il campo sarà una stringa di 25 caratteri qualsiasi cosa io ci inserisca dentro, seppure ci metto un solo carattere la stringa risulterà lunga 25 caratteri, ho "scoperto" che se si crea manualmente una tabella e si mette un campo di testo la proprietà "compressione Unicode" è impostata su "SI" mentre se creo dinamicamente la tabella e il campo di testo è impostata su "No" il problema è sicuramente questo perché modificando manualmente il valore su "SI" il tutto funziona... Stringendo: Qlc1 sa come si imposta questa proprietà da codice?
SQLSTR = "CREATE TABLE UTENTI (ID INTEGER, NOME CHAR(30), DATA_NASC DATE, DESCR CHAR(100))"
CIAO E GRAZIE

[scarob]

Prova ad usare VARCHAR(25) al posto di CHAR(25)

[XVincentX]

Non ne sono sicuro, ma invece di creare la variabile adodb.command dovrebbe andare bene anche adodb.connection.

dim cacca as adodb.connection
dim merda as adodb.recordset
dim provider as string 'per il database, il provider...
dim query as string
set cacca = new adodb.connection
set merda = new aoddb.recordset
cacca.open provider
merda.open nometabella,cacca,3,3
let query = "la query da fare"
'Ecco il comando chiave
cacca.execute query

Tramite il comando execute dell'adodb.connection è possibile, almeno creto eseguire una qualsiasi query
Mai testato (lol)

[meronet]

come posso creare una tabella con dao !!!