PRINCIPALE > LISTA DELLE AREE DI DISCUSSIONE > DATABASE > MESSAGGIO

Eseguire una ricerca veloce nell' archivio delle risorse di Visual Basic Italia®: 

Preso dall'archivio...

Premere il pulsante sotto per accedere direttamente ad un articolo o ad un esempio preso in modo casuale dall'archivio.
Ultimo e-book pubblicato:

"INTRODUZIONE AI CSS"

Lo scopo del CSS language è quello di controllare lo stile dei vari elementi che concorrono a formare un
documento HTML.
Si può operare in tre modi collegamento ad un foglio di stile esterno;definizione degli stili all'inizio
del documento utilizzo della proprietà style all'interno di un Tag HTML (embedded style). Questo e-book introduttivo
servirà per apprendere tali nozioni fondametali dei fogli di stile.


Prezzo: € 0.0.

Presentazione:
REAL SOFTWARE RILASCIA LA VERSIONE 5.0 di REALbasic per Windows






Gorizia, 5 maggio 2003 - Active, distributore in esclusiva di REALSoftware, Austin, Tx, annuncia la disponibilità di REALbasic 5.0 per Windows, uno strumento per lo sviluppo semplice da usare che permette agli utenti Windows di tutti i livelli di creare applicazioni personalizzate e di compilarle sia per la piattaforma Windows che per quella Macintosh. [>>]

http://www.active-software.com

Contatti. Utilizzare l'email generica per domande relative al sito:
Porre domande relative al sito
oppure scrivere ad un responsabile di area.
Responsabile del sito: >Andrea Martelli
Responsabile area "Corso di VB":
> Giorgio Abraini

Messaggio



TableDef
jckiller 08/10/2002
Difficoltà: Medio

PROBLEMA 1:
Qualcuno potrebbe dirmi come si traduce questo codice da DAO a ADO sapendo che al posto di:
Dim DB As database
ho:
Dim DBconn As ADODB.connectionstring
che punta allo stesso database?


Private Sub Verificadb()

Dim MiaTab As TableDef
Dim T1 As Field, T2 As Field, T3 As Field, T4 As Field

On Error Goto ERRORE

Set MiaTab = DB.CreateTableDef("tGruppoOrTabVar")
Set T1 = MiaTab.CreateField("GruppoOrario", dbText)
T1.Size = 30
Set T2 = MiaTab.CreateField("TabVar", dbText)
T2.Size = 30
Set T3 = MiaTab.CreateField("Mese", dbText)
T3.Size = 30
Set T4 = MiaTab.CreateField("ProGr", dbText)
T4.Size = 30
MiaTab.Fields.Append T1
MiaTab.Fields.Append T2
MiaTab.Fields.Append T3
MiaTab.Fields.Append T4
DB.TableDefs.Append MiaTab

Exit Sub

ERRORE:
Resume Next
End Sub

PROBLEMA 2:

Devo sostituire dei data control(che prima si connettevano ad un db access) con qualcosa che mi permetta di connettermi in ODBC a mysql, cambiando più volte la connectionstring e il recordset(quindi l'adodc non va molto bene). Esiste qualche altro controllo?

Grazie in anitcipo,

Stefano