Oppure

Loading
20/08/07 16:39
jos
salve a tutti, ho un altra domanda per voi più esperti di me, siccome nello studio non sono ancora arrivato ai db, vorrei sapere se possedete un sorgente di esempio dove posso in poco codice avere la lista del contenuto di una tabella in un file access, e aggiungere altre righe alle varie colonne... se potete, mi farebbe piacere se scriviate qui il codice in modo da commentarlo.. grazie anticipatamente..
aaa
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
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
22/08/07 20:00
jos
sei stato chiarissimo grazie mille...
aaa