Bonjour, je souhaite =E9crire des enregistrements dans une=20
table Access.
Donc, comme lorsque je d=E9veloppais sur Access, je cr=E9e=20
une connexion, puis un recordset:
Dim cnn As ADODB.Connection
Dim Rec As ADODB.Recordset
cnn =3D New ADODB.Connection
cnn.Open("Provider=3DMicrosoft.Jet.OLEDB.4.0;Data=20
Source=3Dc:\Traitement\CG.mdb;")
Rec =3D New ADODB.Recordset
Rec.CursorType =3D ADODB.CursorTypeEnum.adOpenKeyset
Rec.LockType =3D ADODB.LockTypeEnum.adLockOptimistic
Rec.Open("Recu", cnn, , , )
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
Olan
Pourquoi n'essaies tu pas de passer directement par une requête, style : Dim sSql as string="Insert Into MaTb(Chp1,Chp1...) Values (1,2...)" cnn.Execute (sSql) @+ Olan
-----Message d'origine----- Bonjour, je souhaite écrire des enregistrements dans une table Access. Donc, comme lorsque je développais sur Access, je crée une connexion, puis un recordset:
Dim cnn As ADODB.Connection Dim Rec As ADODB.Recordset cnn = New ADODB.Connection cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:TraitementCG.mdb;") Rec = New ADODB.Recordset Rec.CursorType = ADODB.CursorTypeEnum.adOpenKeyset Rec.LockType = ADODB.LockTypeEnum.adLockOptimistic Rec.Open("Recu", cnn, , , )
Mais le pb, c'est que j'ai un message: La propriété Fields est en lecture seule. Comment pourrais-je écrire dans ma table ? Merci. .
Pourquoi n'essaies tu pas de passer directement par une
requête, style :
Dim sSql as string="Insert Into MaTb(Chp1,Chp1...) Values
(1,2...)"
cnn.Execute (sSql)
@+
Olan
-----Message d'origine-----
Bonjour, je souhaite écrire des enregistrements dans une
table Access.
Donc, comme lorsque je développais sur Access, je crée
une connexion, puis un recordset:
Dim cnn As ADODB.Connection
Dim Rec As ADODB.Recordset
cnn = New ADODB.Connection
cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=c:TraitementCG.mdb;")
Rec = New ADODB.Recordset
Rec.CursorType = ADODB.CursorTypeEnum.adOpenKeyset
Rec.LockType = ADODB.LockTypeEnum.adLockOptimistic
Rec.Open("Recu", cnn, , , )
Pourquoi n'essaies tu pas de passer directement par une requête, style : Dim sSql as string="Insert Into MaTb(Chp1,Chp1...) Values (1,2...)" cnn.Execute (sSql) @+ Olan
-----Message d'origine----- Bonjour, je souhaite écrire des enregistrements dans une table Access. Donc, comme lorsque je développais sur Access, je crée une connexion, puis un recordset:
Dim cnn As ADODB.Connection Dim Rec As ADODB.Recordset cnn = New ADODB.Connection cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:TraitementCG.mdb;") Rec = New ADODB.Recordset Rec.CursorType = ADODB.CursorTypeEnum.adOpenKeyset Rec.LockType = ADODB.LockTypeEnum.adLockOptimistic Rec.Open("Recu", cnn, , , )
Mais le pb, c'est que j'ai un message: La propriété Fields est en lecture seule. Comment pourrais-je écrire dans ma table ? Merci. .
Oui je vais essayer ta solution qui me parait être plus rapide que la mienne. Sinon mon pb est résolu avec la syntaxe suivante: Rec.fields("lklo").value = MonXl.Cells(i, 1).text
-----Message d'origine----- Pourquoi n'essaies tu pas de passer directement par une requête, style : Dim sSql as string="Insert Into MaTb(Chp1,Chp1...) Values (1,2...)" cnn.Execute (sSql) @+ Olan
-----Message d'origine----- Bonjour, je souhaite écrire des enregistrements dans
une
table Access. Donc, comme lorsque je développais sur Access, je crée une connexion, puis un recordset:
Dim cnn As ADODB.Connection Dim Rec As ADODB.Recordset cnn = New ADODB.Connection cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:TraitementCG.mdb;") Rec = New ADODB.Recordset Rec.CursorType =
Mais le pb, c'est que j'ai un message: La propriété Fields est en lecture seule. Comment pourrais-je écrire dans ma table ? Merci. .
.
Oui je vais essayer ta solution qui me parait être plus
rapide que la mienne.
Sinon mon pb est résolu avec la syntaxe suivante:
Rec.fields("lklo").value = MonXl.Cells(i, 1).text
-----Message d'origine-----
Pourquoi n'essaies tu pas de passer directement par une
requête, style :
Dim sSql as string="Insert Into MaTb(Chp1,Chp1...) Values
(1,2...)"
cnn.Execute (sSql)
@+
Olan
-----Message d'origine-----
Bonjour, je souhaite écrire des enregistrements dans
une
table Access.
Donc, comme lorsque je développais sur Access, je crée
une connexion, puis un recordset:
Dim cnn As ADODB.Connection
Dim Rec As ADODB.Recordset
cnn = New ADODB.Connection
cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=c:TraitementCG.mdb;")
Rec = New ADODB.Recordset
Rec.CursorType =
Oui je vais essayer ta solution qui me parait être plus rapide que la mienne. Sinon mon pb est résolu avec la syntaxe suivante: Rec.fields("lklo").value = MonXl.Cells(i, 1).text
-----Message d'origine----- Pourquoi n'essaies tu pas de passer directement par une requête, style : Dim sSql as string="Insert Into MaTb(Chp1,Chp1...) Values (1,2...)" cnn.Execute (sSql) @+ Olan
-----Message d'origine----- Bonjour, je souhaite écrire des enregistrements dans
une
table Access. Donc, comme lorsque je développais sur Access, je crée une connexion, puis un recordset:
Dim cnn As ADODB.Connection Dim Rec As ADODB.Recordset cnn = New ADODB.Connection cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:TraitementCG.mdb;") Rec = New ADODB.Recordset Rec.CursorType =
