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 - database
Forum - Visual Basic 6 - database

Avatar
massimo (Normal User)
Expert


Messaggi: 210
Iscritto: 23/08/2009

Segnala al moderatore
Postato alle 19:30
Sabato, 29/08/2009
ciao scusate come si crea un datebase?
e in vb e vb6 i codici sono uguali?

PM Quote
Avatar
fusebyte (Normal User)
Expert


Messaggi: 332
Iscritto: 24/12/2008

Segnala al moderatore
Postato alle 23:04
Sabato, 29/08/2009
Codice sorgente - presumibilmente VB.NET

  1. Sub CreateNewMDB(FileName, Format)
  2.   Dim Catalog
  3.   Set Catalog = CreateObject("ADOX.Catalog")
  4.   Catalog.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  5.      "Jet OLEDB:Engine Type=" & Format & _
  6.     ";Data Source=" & FileName
  7. End Sub
  8.  
  9. 'Crea nuovo database
  10. 'CreateNewMDB "C:\test.mdb", Jet4x
  11.  
  12. 'Apre il database creato e aggiunge una tabella con alcune colonne.
  13. Set tbl = CreateObject("ADOX.Table")
  14. Set cat = CreateObject("ADOX.Catalog")
  15.    
  16. ' open the Catalog.
  17. cat.ActiveConnection = "Provider='Microsoft.Jet.OLEDB.4.0';" & _
  18.         "Data Source='test.mdb';"
  19.     Membri di ADODB.DataTypeEnum
  20.     Const adInteger = 3
  21.     Const adVarWChar = 202
  22.     Const adBinary = 128
  23.     Const adDate = 7
  24.     Const adDecimal = 14
  25.     Const adDouble = 5
  26.     Const adLongVarWChar = 203
  27.     tbl.Name = "prenotazioni"
  28.     tbl.Columns.Append "Codice", adInteger
  29.     tbl.Columns.Append "Nome", adVarWChar, 50
  30.     tbl.Columns.Append "Cognome", adVarWChar, 50
  31.     cat.Tables.Append tbl
  32. Set tbl = Nothing
  33. Set cat = Nothing
  34.  
  35.  
  36. Set Rs = CreateObject("ADODB.Recordset")
  37. Set oConnection = CreateObject("ADODB.Connection")
  38. oConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='test.mdb';"
  39. Rs.ActiveConnection = oConnection
  40. Rs.CursorType = 1: Rs.LockType = 3
  41.  
  42. ' Imposto il nome della tabella in cui scrivere
  43. Rs.Source = "prenotazioni"
  44. Rs.Open
  45. 'Aggiungo un record nuovo e ci scrivo
  46. Rs.AddNew
  47. Rs("Codice") = 7
  48. Rs("Nome") = "Mario"
  49. Rs("Cognome") = "Rossi"
  50. Chiedo ad ADO di scrivere il record creato.
  51. Rs.Update



puoi lavorare su questo gia' funzionante e cambiare i nomi

Ciao



Ultima modifica effettuata da fusebyte il 29/08/2009 alle 23:05
PM Quote