Requete access
cat
-
4 août 2000 à 14:13
beny100 Messages postés 213 Date d'inscription vendredi 17 novembre 2006 Statut Membre Dernière intervention 1 avril 2009 - 23 juil. 2007 à 22:46
beny100 Messages postés 213 Date d'inscription vendredi 17 novembre 2006 Statut Membre Dernière intervention 1 avril 2009 - 23 juil. 2007 à 22:46
2 réponses
Il ya plusieurs possibilitées, ça dépend du type de requète que tu veut faire.
1)Plutot pour les requètes selections, ou les requètes où tu veux modifier enr/enr :
Dim dbs As Database
Dim rst As Recordset
Set dbs = OpenDatabase("DBName")
Set rst = dbs.OpenRecordset("SELECT * FROM TabName;")
' Remplit l'objet Recordset.
rst.MoveLast
2)Type de requète équivalente à celles créées par MSQuery sur Access :
Dim dbs As Database
Dim qdf As QueryDef
Set dbs = OpenDatabase("DBName")
Set qdf = dbs.CreateQueryDef("", "SELECT * FROM TabName")
3)Autrement :
Dim dbs As Database
Set dbs = OpenDatabase("DBName")
dbs.Execute "UPDATE TabName SET [ChName] = Value2 WHERE [ChName] = Value1
1)Plutot pour les requètes selections, ou les requètes où tu veux modifier enr/enr :
Dim dbs As Database
Dim rst As Recordset
Set dbs = OpenDatabase("DBName")
Set rst = dbs.OpenRecordset("SELECT * FROM TabName;")
' Remplit l'objet Recordset.
rst.MoveLast
2)Type de requète équivalente à celles créées par MSQuery sur Access :
Dim dbs As Database
Dim qdf As QueryDef
Set dbs = OpenDatabase("DBName")
Set qdf = dbs.CreateQueryDef("", "SELECT * FROM TabName")
3)Autrement :
Dim dbs As Database
Set dbs = OpenDatabase("DBName")
dbs.Execute "UPDATE TabName SET [ChName] = Value2 WHERE [ChName] = Value1
beny100
Messages postés
213
Date d'inscription
vendredi 17 novembre 2006
Statut
Membre
Dernière intervention
1 avril 2009
23 juil. 2007 à 22:46
23 juil. 2007 à 22:46
salut,j'ai un code qui attaque ma base de donnees access pour des insertions mais qunt j'essaie il n'y auun message d'eurreur et pourtant les insertions ne s'effectue pas. les combobox et datetimepicker contiennent pourtant des donnees.
alors j'ai besoin
de votre aide
Dim
idlecteur
As
String
Dim
idlivre
As
String
Dim
datrstitut
As
String
Dim
datemprunt
As
String
idlecteur = ComboBox1.Text
idlivre = ComboBox2.Text
datemprunt = DateTimePicker1.Text
datrstitut = DateTimePicker2.Text
' Dim con As New OleDb.OleDbConnection
con.ConnectionString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source =C:\Documents and Settings\ANNICK\Mes documents\Visual Studio 2005\Projects\bibliotheque\bibliotheque\bibliotheque.mdb"
'ouverture de la connection sur la chaine specifiee
con.Open()
Dim
sql1
As
String
sql1 =
"INSERT INTO Emprunts( idlecteur,idlivre,dateemprunt,daterestitution) values ('idlecteur','idlivre','datemprunt','datrstitut') "
' Nous créons un nouvel objet Data Adapter avec entre parenthèses: la requête SQL
' (= sql)et notre objet connexion (= con)
da =
New
OleDb.OleDbDataAdapter(sql1, con)con.Close()
alors j'ai besoin
de votre aide
Dim
idlecteur
As
String
Dim
idlivre
As
String
Dim
datrstitut
As
String
Dim
datemprunt
As
String
idlecteur = ComboBox1.Text
idlivre = ComboBox2.Text
datemprunt = DateTimePicker1.Text
datrstitut = DateTimePicker2.Text
' Dim con As New OleDb.OleDbConnection
con.ConnectionString =
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source =C:\Documents and Settings\ANNICK\Mes documents\Visual Studio 2005\Projects\bibliotheque\bibliotheque\bibliotheque.mdb"
'ouverture de la connection sur la chaine specifiee
con.Open()
Dim
sql1
As
String
sql1 =
"INSERT INTO Emprunts( idlecteur,idlivre,dateemprunt,daterestitution) values ('idlecteur','idlivre','datemprunt','datrstitut') "
' Nous créons un nouvel objet Data Adapter avec entre parenthèses: la requête SQL
' (= sql)et notre objet connexion (= con)
da =
New
OleDb.OleDbDataAdapter(sql1, con)con.Close()