Avec SharpDevelop je veux lire les enregistrements d'une base de donnée
Access. Voici mon code :
-----------------------
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim S1 As String
'Open Access database.
con = New ADODB.Connection
con.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & FNmdb & ";" & _
"Persist Security Info=False"
con.Open()
S1 = "SELECT * FROM " & tbName
rs = con.Execute(S1)
rs.MoveFirst()
MsgBox (rs("RdvLib"))
'fermer la database
rs.Fields.Refresh()
rs = Nothing
con.Close()
con = Nothing
-----------------------
A l'exécution le programme plante sur le MsgBox (rs.("RdvLib")). J'ai le
message : "Impossible de convertir l'argument 'Prompt' en type 'Sting'."
Pour info, RdvLib est un champ de ma BdD Access.
Ai-je oublié qque chose ? Où est l'erreur de syntaxe ?
Si vous me permettez quelques conseils de base :-) :
Sous .Net, l'utilisation d'Ado.Net est très recommandée. Sous .Net, il est recommandé de laisser tomber les anciennes instructions de VB6 comme MsgBox et d'utiliser les classes du framework, comme messagebox (.show pour afficher le message).
Christophe "HD" a écrit dans le message de news: 433aed1f$0$7076$
Bonjour,
Avec SharpDevelop je veux lire les enregistrements d'une base de donnée Access. Voici mon code : ----------------------- Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim S1 As String
'Open Access database.
con = New ADODB.Connection
con.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & FNmdb & ";" & _
"Persist Security Infoúlse"
con.Open()
S1 = "SELECT * FROM " & tbName
rs = con.Execute(S1)
rs.MoveFirst()
MsgBox (rs("RdvLib"))
'fermer la database
rs.Fields.Refresh()
rs = Nothing
con.Close()
con = Nothing
----------------------- A l'exécution le programme plante sur le MsgBox (rs.("RdvLib")). J'ai le message : "Impossible de convertir l'argument 'Prompt' en type 'Sting'."
Pour info, RdvLib est un champ de ma BdD Access.
Ai-je oublié qque chose ? Où est l'erreur de syntaxe ?
Si vous me permettez quelques conseils de base :-) :
Sous .Net, l'utilisation d'Ado.Net est très recommandée.
Sous .Net, il est recommandé de laisser tomber les anciennes instructions de
VB6 comme MsgBox et d'utiliser les classes du framework, comme messagebox
(.show pour afficher le message).
Christophe
"HD" <hd@anti.spam.fr> a écrit dans le message de news:
433aed1f$0$7076$626a14ce@news.free.fr...
Bonjour,
Avec SharpDevelop je veux lire les enregistrements d'une base de donnée
Access. Voici mon code :
-----------------------
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim S1 As String
'Open Access database.
con = New ADODB.Connection
con.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & FNmdb & ";" & _
"Persist Security Infoúlse"
con.Open()
S1 = "SELECT * FROM " & tbName
rs = con.Execute(S1)
rs.MoveFirst()
MsgBox (rs("RdvLib"))
'fermer la database
rs.Fields.Refresh()
rs = Nothing
con.Close()
con = Nothing
-----------------------
A l'exécution le programme plante sur le MsgBox (rs.("RdvLib")). J'ai le
message : "Impossible de convertir l'argument 'Prompt' en type 'Sting'."
Pour info, RdvLib est un champ de ma BdD Access.
Ai-je oublié qque chose ? Où est l'erreur de syntaxe ?
Si vous me permettez quelques conseils de base :-) :
Sous .Net, l'utilisation d'Ado.Net est très recommandée. Sous .Net, il est recommandé de laisser tomber les anciennes instructions de VB6 comme MsgBox et d'utiliser les classes du framework, comme messagebox (.show pour afficher le message).
Christophe "HD" a écrit dans le message de news: 433aed1f$0$7076$
Bonjour,
Avec SharpDevelop je veux lire les enregistrements d'une base de donnée Access. Voici mon code : ----------------------- Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim S1 As String
'Open Access database.
con = New ADODB.Connection
con.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & FNmdb & ";" & _
"Persist Security Infoúlse"
con.Open()
S1 = "SELECT * FROM " & tbName
rs = con.Execute(S1)
rs.MoveFirst()
MsgBox (rs("RdvLib"))
'fermer la database
rs.Fields.Refresh()
rs = Nothing
con.Close()
con = Nothing
----------------------- A l'exécution le programme plante sur le MsgBox (rs.("RdvLib")). J'ai le message : "Impossible de convertir l'argument 'Prompt' en type 'Sting'."
Pour info, RdvLib est un champ de ma BdD Access.
Ai-je oublié qque chose ? Où est l'erreur de syntaxe ?
Merci d'avance pour votre aide -- @+ HD
HD
Et comment se connecter avec ADO.Net sur une base de données Access ?
J'utilise SharpDevelopp et je rame un peu...
-- @+ HD
Et comment se connecter avec ADO.Net sur une base de données Access ?
