Ecrire dans une base de donnée access
shadow1779
Messages postés
706
Date d'inscription
mercredi 17 novembre 2004
Statut
Membre
Dernière intervention
29 septembre 2013
-
28 janv. 2006 à 22:49
cs_Stephane33 Messages postés 630 Date d'inscription samedi 15 février 2003 Statut Modérateur Dernière intervention 9 octobre 2011 - 29 janv. 2006 à 17:43
cs_Stephane33 Messages postés 630 Date d'inscription samedi 15 février 2003 Statut Modérateur Dernière intervention 9 octobre 2011 - 29 janv. 2006 à 17:43
A voir également:
- Code source+gestion de stock+access
- Logiciel gestion personnel open source - Forum VB.NET
- Exemple base de donnée gestion de stock ✓ - Forum Visual Basic
- Un source ou une source - Forum C / C++ / C++.NET
- Application gestion stock alimentaire - Forum Java
- Code source application gestion de stock c# - Forum C# / .NET
4 réponses
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
29 janv. 2006 à 04:14
29 janv. 2006 à 04:14
Salut
Charge n'importe quelle source sur vbfrance qui parle de database : Elle fera surement des écritures.
Instruction SQL = Insert Into
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
Charge n'importe quelle source sur vbfrance qui parle de database : Elle fera surement des écritures.
Instruction SQL = Insert Into
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
cs_Stephane33
Messages postés
630
Date d'inscription
samedi 15 février 2003
Statut
Modérateur
Dernière intervention
9 octobre 2011
1
29 janv. 2006 à 10:13
29 janv. 2006 à 10:13
La requête sera du type nonQuery
Try
Maconn = New System.Data.OleDb.OleDbConnection
Maconn.ConnectionString = _
<var>"Provider=Microsoft.Jet.OLEDB.4.0;"</var> & _
<var>"Data Source="</var> & Fichier & <var>";"</var> & _
<var>"Persist Security Info=False"</var>
Maconn.
Comd.Connection = Maconn
Comd.ExecuteNonQuery()
Comd.Dispose()
Maconn.
RequeteNonQuery = True
Catch ex As OleDb.OleDbException
RequeteNonQuery = False
Finally
Maconn.
SQLString = "INSERT INTO MaTable(IDX,Nom,Prenon,DateNaiss) VALUES (0,'Dupont','JACQUES','#01/01/1960#')"
Attention à la syntaxe SQL.
Je travaille sur un petit programme de base de données regarde ici http://www.vbfrance.com/code.aspx?ID=35771
Public
FunctionRequeteNonQuery(ByVal Fichier As
String, ByVal SQLString As
String) As Boolean
DimMaconn As System.Data.OleDb.OleDbConnection
Try
Maconn = New System.Data.OleDb.OleDbConnection
Maconn.ConnectionString = _
<var>"Provider=Microsoft.Jet.OLEDB.4.0;"</var> & _
<var>"Data Source="</var> & Fichier & <var>";"</var> & _
<var>"Persist Security Info=False"</var>
Maconn.
Open()
DimComd As New OleDb.OleDbCommand(SQLString)
Comd.Connection = Maconn
Comd.ExecuteNonQuery()
Comd.Dispose()
Maconn.
Close()
RequeteNonQuery = True
Catch ex As OleDb.OleDbException
MsgBox(ex.Message)
RequeteNonQuery = False
Finally
Maconn.
Close()
EndTry
End
FunctionExemple
SQLString = "INSERT INTO MaTable(IDX,Nom,Prenon,DateNaiss) VALUES (0,'Dupont','JACQUES','#01/01/1960#')"
Attention à la syntaxe SQL.
Je travaille sur un petit programme de base de données regarde ici http://www.vbfrance.com/code.aspx?ID=35771
shadow1779
Messages postés
706
Date d'inscription
mercredi 17 novembre 2004
Statut
Membre
Dernière intervention
29 septembre 2013
29 janv. 2006 à 15:25
29 janv. 2006 à 15:25
ah j'avais vu un truc beaucoup plus dur, ca parlait de data adapter et datareader, mais ca c'est beaucoup plus simple, on envoi la requete et on recoit les infos, c'est du sql quoi,
et pour la lecture ya plus simple qu'un truc dans ce genre?:
Dim
MyConnexion As
OleDbConnection =
New
OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & _
"C:\consultation.mdb")
Dim
Mycommand
As
OleDbCommand = MyConnexion.CreateCommand()
Mycommand.CommandText = "SELECT NOM FROM QUESTIONS"
MyConnexion.Open()
Dim
myReader
As
OleDbDataReader = Mycommand.ExecuteReader()
Do
While
myReader.Read()
ListBox1.Items.Add(myReader.GetString(0))
Loop
myReader.Close()
MyConnexion.Close()
et pour la lecture ya plus simple qu'un truc dans ce genre?:
Dim
MyConnexion As
OleDbConnection =
New
OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & _
"C:\consultation.mdb")
Dim
Mycommand
As
OleDbCommand = MyConnexion.CreateCommand()
Mycommand.CommandText = "SELECT NOM FROM QUESTIONS"
MyConnexion.Open()
Dim
myReader
As
OleDbDataReader = Mycommand.ExecuteReader()
Do
While
myReader.Read()
ListBox1.Items.Add(myReader.GetString(0))
Loop
myReader.Close()
MyConnexion.Close()
cs_Stephane33
Messages postés
630
Date d'inscription
samedi 15 février 2003
Statut
Modérateur
Dernière intervention
9 octobre 2011
1
29 janv. 2006 à 17:43
29 janv. 2006 à 17:43
La lecture est différente puisque tu dois obtenir des informations en retour d'une requête, il faut donc effectivement un datareader pour lire directement les données.
Attention avec le reader, un Myreader.getstring(0) sur un nombre te lève une exception.
Pour le DataAdapter, celui-ci te permet de formater les données pour les contenir dans un dataset
Je le traite dans mon programme sur la form Données, qui te permet d'afficher les données dans un datagrid
Juste faites-le
Attention avec le reader, un Myreader.getstring(0) sur un nombre te lève une exception.
Pour le DataAdapter, celui-ci te permet de formater les données pour les contenir dans un dataset
Je le traite dans mon programme sur la form Données, qui te permet d'afficher les données dans un datagrid
Juste faites-le