Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - db in visual basic
Forum - Visual Basic 6 - db in visual basic

Avatar
jos (Normal User)
Newbie


Messaggi: 20
Iscritto: 18/08/2007

Segnala al moderatore
Postato alle 18:39
Lunedì, 20/08/2007
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..

PM Quote
Avatar
LuigiBiasi (Normal User)
Expert


Messaggi: 237
Iscritto: 15/09/2006

Segnala al moderatore
Postato alle 20:52
Mercoledì, 22/08/2007
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
Codice sorgente - presumibilmente VB.NET
  1. Private conn As ADODB.Connection 'connessione all'udl
  2. Private rs As ADODB.Recordset 'interagire con il db
  3.  
  4.  
  5. Public Function COpendb(sConnString As Variant, ErrorMsg As Variant) As Integer
  6. Set conn = New ADODB.Connection
  7. On Error GoTo errorHandler
  8.  
  9.    conn.Open "File Name=" & sConnString
  10.         'sConnString contiene il pathname del file udl
  11.  
  12.  
  13. COpendb = 0
  14. Exit Function
  15. errorHandler:
  16.     ErrorMsg = Err.Description
  17.     COpendb = -1
  18.  
  19. End Function
  20.  
  21. Public Function InsertRs(Cognome As String, nome As String, datanascita As String, indirizzo As String) As Boolean
  22.  
  23. Set rs = New ADODB.Recordset
  24. On Error GoTo errorHandler
  25.  
  26. rs.Open nometabellatuodb, conn, 3, 3
  27.  
  28. rs.AddNew
  29.         rs("nome") = nome                       'CAMPI CHE HAI CREATO NELLA TABELLA DEL DATABASE
  30.         rs("cognome") = Cognome
  31.         rs("DataNAscita") = datanascita
  32.         rs("Indirizzo") = indirizzo
  33.     rs.Update
  34.  
  35.     Set rs = Nothing
  36.     InsertRs = True
  37. 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 il 22/08/2007 alle 20:55
PM Quote
Avatar
jos (Normal User)
Newbie


Messaggi: 20
Iscritto: 18/08/2007

Segnala al moderatore
Postato alle 22:00
Mercoledì, 22/08/2007
sei stato chiarissimo grazie mille...

PM Quote