[VB6] Connessione a database access

[carlito9987]

Ciao a tutti!

Avrei bisogno di una mano. Vorrei sapere come posso accedere ad un database access (.mdb) tramite codice vb6.

Vi spiego meglio la situazione:
- Il mio programmino ha un oggetto calendario e non appena viene selezionata una data mi deve riempire due textbox nella stessa form.
- Inoltre ha un bottone attraverso il quale è possibile fare un inserimento sul db, tramite un'altra apposita form.

Se possibile vorrei vedere il codice....

Spero mi possiate aiutare...

Grazie mille in anticipo!!

[carlito9987]

Nessuno può aiutarmi??

[MarcoGG]

Se la metti in questo modo pare tu voglia che qualcuno ti faccia il programma. :D

[carlito9987]

No no per carità! :D

Volevo solo vedere il codice relativo alla connessione al db e come interrogarlo...

[MarcoGG]

Volevo solo vedere il codice relativo alla connessione al db e come interrogarlo...

La connessione standard e l'interrogazione-tipo ( ad es. con una Select che popola un RecordSet ) è semplice :

Dim strSql As String
strSql = "SELECT * FROM nomeTabella"

Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim strCN As String
strCN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;User Id=admin;Password=;"

CN.Open strCN
Set RS = CN.Execute(strSql)

'Ciclo di lettura RecordSet
'e/o istruzioni su RecordSet...

RS.Close
CN.Close
Set RS = Nothing
Set CN = Nothing

Questo per le versioni di Access fino alla 2003.
Per una panoramica sulle stringhe di connessione :
http://www.connectionstrings.com/
;)

[carlito9987]

Prima di tutto, grazie mille per la risposta!

Avrei solo una domanda da farti :D

Suppongo che in RecordSet venga messo il risultato della query.. quindi sei io volessi mettere il la colonna2 della tabella1 in una textbox come posso fare riferimento al campo nel ciclo di lettura??

[MarcoGG]

Suppongo che in RecordSet venga messo il risultato della query.. quindi sei io volessi mettere il la colonna2 della tabella1 in una textbox come posso fare riferimento al campo nel ciclo di lettura??

RecordSet, come suggerito dal nome stesso, è un "Set di Record", ossia una collezione di records così come vengono restituiti da una query.
Più che una textBox vedrei meglio una List :
While Not RS.EOF
List1.AddItem (RS("nomeColonna1"))
RS.MoveNext
Wend

[carlito9987]

Perfetto.... Grazie mille!!

Mi ci metto nel pomeriggio.... Speriamo bene!!

Grazie ancora..

[carlito9987]

MarcoGG ho risolto, grazie mille!

Come ulteriore passo, magari servirà a qualcuno un giorno, ho dovuto creare un file .udl che mi ha permesso la connessione al db.

All'interno di questo file possiamo reperire la stringa di connessione corretta da inserire (nel mio caso) nella variabile strCN.

[MarcoGG]

Come ulteriore passo, magari servirà a qualcuno un giorno, ho dovuto creare un file .udl che mi ha permesso la connessione al db.

All'interno di questo file possiamo reperire la stringa di connessione corretta da inserire (nel mio caso) nella variabile strCN.

Questa mi è nuova. In che senso hai dovuto ?
Non è necessario mettere la strCN in un file esterno, e, in ogni caso, non è obbligatorio creare un Universal Data Link...

[carlito9987]

Praticamente la strCN non andava e quindi ho creato un Universal Data Link, poi l'ho aperto con notepad e ho preso la stringa da li..

[MarcoGG]

Praticamente la strCN non andava e quindi ho creato un Universal Data Link, poi l'ho aperto con notepad e ho preso la stringa da li..

Beh, se hai usato quella che avevo postato io, certo che non andava. La devi modificare e adattare al tuo caso. :D
Se metti nel codice la stringa generata nell'Udl ovviamente funzionerà...

[carlito9987]

Certo certo!! :D

Tranquillo non stavo provando ad accedere al db mydatabase.mdb con le credenziali User Id=admin Password= "" :D


L'ho voluto specificare perchè le stringhe che suggerisce anche la microsoft per questo tipo di connessioni non andavano... L'unica funzionante è stata questa creata con l'udl. Che aggiunge nella parte finale alcuni parametri..