Visual Basic 6 - Creare MDB da commandbutton

Non posso astenermi dall'obiettare!

a) Una cosa che non sopporto è quella di voler accreditarmi parole che non ho scritto.
b) Non ho espresso alcun giudizio.
c) Non sono salito su nessun scalino (caso mai l'hai fatto tu).

Al contrario, mi pare che sei 'leggermente' permaloso...
Bel modo di ringraziare il prossimo che ha cercato di aiutarti.

Forse te lo sei già scordato (memoria corta?), ma :

1 - non riuscivi a scaricare il progetto:
.....te l'ho scaricato, l'ho messo sul mio sito personale e ti ho fornito il link.

2 - Non trovavi 'la schermata iniziale':
.....te l'ho indicata; è frmInizio

3 - ti ho chiesto il nr del SP 2 volte:
.....non hai ancora risposto.
.....(per agevolarti ho anche creato ed allegato la finestra di about dove leggere il SP)

4 - Hai chiesto il codice, pur avendo il progetto in mano:
.....Ti ho risposto che il codice ce l'hai già.
.....Hai cercato, oppure non sai fare nemmeno quello? Se così, dillo.

5 - Eppure non è così difficile, basta seguire il form:
..... a) apri il frmInizio
..... b) clic sul menu 'Database'
..... c) clic sul menu 'Crea'
..... d) entri nel codice della routine menuCreaDataBase_Click[/b]

ed il codice che serve a te è pure commentato!

'Crea il DataBase vuoto, ovvero senza tabelle
Catalogo.Create "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & nomeNuovoDB

Buon per te, ma come ti ho già scritto:
sopra lo scalino ci sei salito tu.

Evidentemente non hai bisogno di un Forum, ma di un Tutor.

si in effetti gibra hai ragione quel tool è parecchio vecchio... però alla fine vb6 intero è vecchio e non più supportato, quindi se uno vuole fa delle cose fatte bene è meglio che cambi direttamente linguaggio

comunque riguardo il flame che si sta creando, invito a mantenere la calma e a non degenerare con insulti.

Nessun insulto,anzi ribadisco i miei ringraziamenti a chi mi aiuta.
Solo che stavolta, avendo trattato pochissimo i database avevo bisogno di un aiuto piu' concreto.
A volte postare 2 righe di codice,per sbloccarti vale piu' di mille parole.
In fondo,altri potrebbero avvalersi del codice postato e non vedo perche' una richiesta del genere debba essere interpretata come lassismo.
Non ho chiesto di scrivermi l'intera routine.
Cmq se ne verro' a capo,postero' tutto il codice,DAO o ADO a qualcuno ,spero ,servira'.

Ciao

ammetto di non essere esperto sul gestire/creare database tramite visual basic,
però se ti può aiutare ti posto un pò di link con esempi di codice e spiegazioni:
tech-archive.net/Archive/Data/microsoft.public.data.ado/2006-12/…
en.allexperts.com/q/Visual-Basic-1048/…
forum.html.it/forum/showthread/…
vb6.us/tutorials/…
vbadud.blogspot.com/2007/11/…
timesheetsmts.com/…
vbtutor.net/…

Poi questo è un'altro sito con parecchie guide riguardo i database e varie funzioni:
vb-helper.com/…

Spero di averti aiutato con tutti questi link, sono in inglese, ma le ricerche fatte in inglese danno sempre buoni risultati

Grazie GRG,qualcosa che mi funziona in quei links l'ho trovata.

Posto la routine che ho un po' modificato che crea un MDB usando ADOX.
Devo dire pero' che l'esempio che ho seguito indicava di andare in
progetto >Riferimenti e spuntare
Microsoft ADO Ext.2.5 for DDL and Security.
Io non ho il 2.5 ma il 2.8 e non andava, ho dovuto aggiungere,cioe' spuntare in più
Microsoft ActiveX Data Objects 2.8 Library.
Cosi' è andato tutto ok.
Sinceramente non so da cosa dipendeva l'errore, cmq in questo modo ho risolto.

Private Sub cmdCreateMDB_Click()
CreateMDB_and_Table
End Sub


Sub CreateMDB_and_Table()

Dim oDB As ADOX.Catalog
Dim sDBPAth As String

Dim sConStr As String
Dim oCn As ADODB.Connection
Dim oCM As ADODB.Command

' ------------------------
' Imposto percorso e connessione
' ------------------------
sDBPAth = App.Path & "\Test.mdb"
sConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sDBPAth & ";"

' ------------------------
' Creo Nuovo MDB con ADOX
' ------------------------
Set oDB = New ADOX.Catalog
oDB.Create sConStr

Set oCn = New ADODB.Connection
oCn.ConnectionString = sConStr
oCn.Open

Set oCM = New ADODB.Command
oCM.ActiveConnection = oCn
oCM.CommandText = "Create Table Users (" & _
"[Dati] Text(8), " & _
"[Stringa] Text(255), " & _
"[Filtro] Text(255) " & _
")"
oCM.Execute
' ------------------------
' Chiudo Oggetto
' ------------------------
If Not oCM Is Nothing Then Set oCM = Nothing
If Not oCn Is Nothing Then Set oCn = Nothing
If Not oDB Is Nothing Then Set oDB = Nothing


' ------------------------
' Gestione Errori
' ------------------------
Err_Handler:
If Err = 0 Then
msgbox = "Database Creato"
End If
If Err <> 0 Then
Err.Clear
Resume Next
End If
End Sub

Ancora Grazie,Ciao e Grazie anche a Gibra.