22/08/07 18:52
LuigiBiasi
Ciao, come prima cosa devi crearti un database con una tabella con tutti i campi da inserirci.
Dopo devi creare un file udl(crea un file .txt e rinominalo in .udl). Apri questo file e nella prima sezione "Provider" scegli il database che hai usato: Acces, Sql Server, Oracle.
Nella seconda sezione "Connection" scrivi il nome del tuo pc in server name. Poi seleziona "usa password e user specifici" e inserisciuna password e un user, dopo sotto seleziona "Seleziona un database dal server" e scegli il nome del tuo database che hai creato.
Dopo testa la connessione se ha successo fai ok e passiamo al codice del programma.
IN UNA ClASSE
Allora i due oggetti creati prima: "conn" e "rs" servono:
il primo per connetterti al file udl, infatti gli passi il percorso del file, perchè tramite quel file riesci a connetterti al db, il secondo "rs" serve a gestire il database. Nella funzione "InsertRs" gli passi i campi da inserire nella tabella del tuo db.
Nella rs.Open gli passi il nome della tabella del tuo db, l'oggetto conn, e i paramentri 3 e 3.
Quando fai la rs.Addnew tra parentesi devi mettere i nomi dei campi della tabella del db.
Spero di essere stato chiaro.
Ciao
Dopo devi creare un file udl(crea un file .txt e rinominalo in .udl). Apri questo file e nella prima sezione "Provider" scegli il database che hai usato: Acces, Sql Server, Oracle.
Nella seconda sezione "Connection" scrivi il nome del tuo pc in server name. Poi seleziona "usa password e user specifici" e inserisciuna password e un user, dopo sotto seleziona "Seleziona un database dal server" e scegli il nome del tuo database che hai creato.
Dopo testa la connessione se ha successo fai ok e passiamo al codice del programma.
IN UNA ClASSE
Private conn As ADODB.Connection 'connessione all'udl Private rs As ADODB.Recordset 'interagire con il db Public Function COpendb(sConnString As Variant, ErrorMsg As Variant) As Integer Set conn = New ADODB.Connection On Error GoTo errorHandler conn.Open "File Name=" & sConnString 'sConnString contiene il pathname del file udl COpendb = 0 Exit Function errorHandler: ErrorMsg = Err.Description COpendb = -1 End Function Public Function InsertRs(Cognome As String, nome As String, datanascita As String, indirizzo As String) As Boolean Set rs = New ADODB.Recordset On Error GoTo errorHandler rs.Open nometabellatuodb, conn, 3, 3 rs.AddNew rs("nome") = nome 'CAMPI CHE HAI CREATO NELLA TABELLA DEL DATABASE rs("cognome") = Cognome rs("DataNAscita") = datanascita rs("Indirizzo") = indirizzo rs.Update Set rs = Nothing InsertRs = True Exit Function
Allora i due oggetti creati prima: "conn" e "rs" servono:
il primo per connetterti al file udl, infatti gli passi il percorso del file, perchè tramite quel file riesci a connetterti al db, il secondo "rs" serve a gestire il database. Nella funzione "InsertRs" gli passi i campi da inserire nella tabella del tuo db.
Nella rs.Open gli passi il nome della tabella del tuo db, l'oggetto conn, e i paramentri 3 e 3.
Quando fai la rs.Addnew tra parentesi devi mettere i nomi dei campi della tabella del db.
Spero di essere stato chiaro.
Ciao
Ultima modifica effettuata da LuigiBiasi 22/08/07 18:55
aaa