Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Base de données

Base de données

5 réponses
Avatar
HA
Bonjour

Je cherche des aides afin de créer une base de données en visual basic 6

Merci
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Cedric news
Voilà un petit exemple de création de base de donnée....


Private MaBase As Database
Private Table As TableDef

Public RecBase As Recordset

Public Sub Créer_Base()
Set MaBase = CreateDatabase(App.Path + "base.hop", dbLangGeneral,
dbEncrypt)
Set MaBase = OpenDatabase(App.Path + "base.hop")

Set Table = MaBase.CreateTableDef("Table1")

With Table
.Fields.Append .CreateField("Nom", dbText)
.Fields.Append .CreateField("Prenom", dbText)
.Fields.Append .CreateField("Age", dbInteger)
MaBase.TableDefs.Append Table
End With

End Sub

Public Sub Ouvrir_Base()
Set MaBase = OpenDatabase(App.Path + "base.hop")
Set RecBase = MaBase.OpenRecordset("Table1")
End Sub

Public Sub Fermer_Base()
MaBase.Close
End Sub

Public Sub Ecrire_Base(Nom As String, Prenom As String, Age As integer)
BaseHisto.AddNew
BaseHisto![Nom] = Connection$
BaseHisto![Prenom] = Prenom$
BaseHisto![Age] = Month(Age%)
BaseHisto.Update
End Sub
Avatar
Elicend_News
salut

sympas ton exemple
as tu un sub qui permette de lire des données dans la base? en séries? juste
pour une données précise (select * in table where champ=valeur order by....)

merci d'avance ;)


"Cedric news" a écrit dans le message de
news:%
Voilà un petit exemple de création de base de donnée....


Private MaBase As Database
Private Table As TableDef

Public RecBase As Recordset

Public Sub Créer_Base()
Set MaBase = CreateDatabase(App.Path + "base.hop", dbLangGeneral,
dbEncrypt)
Set MaBase = OpenDatabase(App.Path + "base.hop")

Set Table = MaBase.CreateTableDef("Table1")

With Table
.Fields.Append .CreateField("Nom", dbText)
.Fields.Append .CreateField("Prenom", dbText)
.Fields.Append .CreateField("Age", dbInteger)
MaBase.TableDefs.Append Table
End With

End Sub

Public Sub Ouvrir_Base()
Set MaBase = OpenDatabase(App.Path + "base.hop")
Set RecBase = MaBase.OpenRecordset("Table1")
End Sub

Public Sub Fermer_Base()
MaBase.Close
End Sub

Public Sub Ecrire_Base(Nom As String, Prenom As String, Age As integer)
BaseHisto.AddNew
BaseHisto![Nom] = Connection$
BaseHisto![Prenom] = Prenom$
BaseHisto![Age] = Month(Age%)
BaseHisto.Update
End Sub




Avatar
nullus premier
Salutation à tous !

comment faire un
select * from table where monchamp est null
ou
select * from table where monchamp est vide
??

par avance merci

-----Message d'origine-----
salut

sympas ton exemple
as tu un sub qui permette de lire des données dans la


base? en séries? juste
pour une données précise (select * in table where


champ=valeur order by....)

merci d'avance ;)


"Cedric news" a écrit dans


le message de
news:%
Voilà un petit exemple de création de base de donnée....


Private MaBase As Database
Private Table As TableDef

Public RecBase As Recordset

Public Sub Créer_Base()
Set MaBase = CreateDatabase(App.Path + "base.hop",




dbLangGeneral,
dbEncrypt)
Set MaBase = OpenDatabase(App.Path + "base.hop")

Set Table = MaBase.CreateTableDef("Table1")

With Table
.Fields.Append .CreateField("Nom", dbText)
.Fields.Append .CreateField("Prenom", dbText)
.Fields.Append .CreateField("Age", dbInteger)
MaBase.TableDefs.Append Table
End With

End Sub

Public Sub Ouvrir_Base()
Set MaBase = OpenDatabase(App.Path + "base.hop")
Set RecBase = MaBase.OpenRecordset("Table1")
End Sub

Public Sub Fermer_Base()
MaBase.Close
End Sub

Public Sub Ecrire_Base(Nom As String, Prenom As String,




Age As integer)
BaseHisto.AddNew
BaseHisto![Nom] = Connection$
BaseHisto![Prenom] = Prenom$
BaseHisto![Age] = Month(Age%)
BaseHisto.Update
End Sub






.



Avatar
Cedric news
Rebonjour,
Voilà un exemple de SELECT
Le Début du code est le même que sur la première news, sauf que j'ai corrigé
quelques erreurs car c'est issu d'un de mes vieux progs alors je suis obligé
de changer les variables pour être plus clair.
Il n'y as pas de commentaire, je sais! Al'époque je n'étais pas bavard sur
mes codes....


Private MaBase As Database
Private Table As TableDef

Public BaseRequete As Recordset
Public RecBase As Recordset

Public Sub Créer_Base()
Set MaBase = CreateDatabase(App.Path + "base.hop", dbLangGeneral,
dbEncrypt)
Set MaBase = OpenDatabase(App.Path + "base.hop")

Set Table = MaBase.CreateTableDef("Table1")

With Table
.Fields.Append .CreateField("Nom", dbText)
.Fields.Append .CreateField("Prenom", dbText)
.Fields.Append .CreateField("Age", dbInteger)
MaBase.TableDefs.Append Table
End With

End Sub

Public Sub Ouvrir_Base()
Set MaBase = OpenDatabase(App.Path + "base.hop")
Set RecBase = MaBase.OpenRecordset("Table1")
End Sub

Public Sub Fermer_Base()
MaBase.Close
End Sub

Public Sub Ecrire_Base(Nom As String, Prenom As String, Age As integer)
RecBase.AddNew
RecBase![Nom] = Nom$
RecBase![Prenom] = Prenom$
RecBase![Age] = Age%
RecBase.Update
End Sub


Public Sub Req_Base(Nom As String, Prenom As String)

Dim Requete As String

Requete$ = "SELECT * FROM Table1"
Requete$ = Requete$ + "WHERE [Nom] = '" + Nom$ + "'"
Requete$ = Requete$ + " AND [Prenom] = '" + Prenom$ + "'"

Set BaseRequete = MaBase.OpenRecordset(Requete$)

With BaseRequete
Do Until .EOF
'Faire un traitement eventuel
.MoveNext
Loop
End With
BaseRequete.Close
Set BaseRequete = Nothing

End Sub
Avatar
Elicend_News
merci !! :)

Elicend

"Cedric news" a écrit dans le message de
news:
Rebonjour,
Voilà un exemple de SELECT
Le Début du code est le même que sur la première news, sauf que j'ai


corrigé
quelques erreurs car c'est issu d'un de mes vieux progs alors je suis


obligé
de changer les variables pour être plus clair.
Il n'y as pas de commentaire, je sais! Al'époque je n'étais pas bavard sur
mes codes....


Private MaBase As Database
Private Table As TableDef

Public BaseRequete As Recordset
Public RecBase As Recordset

Public Sub Créer_Base()
Set MaBase = CreateDatabase(App.Path + "base.hop", dbLangGeneral,
dbEncrypt)
Set MaBase = OpenDatabase(App.Path + "base.hop")

Set Table = MaBase.CreateTableDef("Table1")

With Table
.Fields.Append .CreateField("Nom", dbText)
.Fields.Append .CreateField("Prenom", dbText)
.Fields.Append .CreateField("Age", dbInteger)
MaBase.TableDefs.Append Table
End With

End Sub

Public Sub Ouvrir_Base()
Set MaBase = OpenDatabase(App.Path + "base.hop")
Set RecBase = MaBase.OpenRecordset("Table1")
End Sub

Public Sub Fermer_Base()
MaBase.Close
End Sub

Public Sub Ecrire_Base(Nom As String, Prenom As String, Age As integer)
RecBase.AddNew
RecBase![Nom] = Nom$
RecBase![Prenom] = Prenom$
RecBase![Age] = Age%
RecBase.Update
End Sub


Public Sub Req_Base(Nom As String, Prenom As String)

Dim Requete As String

Requete$ = "SELECT * FROM Table1"
Requete$ = Requete$ + "WHERE [Nom] = '" + Nom$ + "'"
Requete$ = Requete$ + " AND [Prenom] = '" + Prenom$ + "'"

Set BaseRequete = MaBase.OpenRecordset(Requete$)

With BaseRequete
Do Until .EOF
'Faire un traitement eventuel
.MoveNext
Loop
End With
BaseRequete.Close
Set BaseRequete = Nothing

End Sub