format access2000 dans vb6???Résolu

Question

Bon je sais, j'ai d&#233;ja pos&#233; cette question mais comme le premier sujet fait 3 km et qu'on y comprend plus rien, ze recommance...
 alors voila un cht'it bout de programme pour ouvrir une base de donnee access2000, (quand j'essaye avec le control data il me met format non reconnu) sonc j'essaye avec ca:

Option Explicit
Dim MyBd As Database
'pour que ca marche fo cocher Microsoft DAO 3.6 dans projet, r&#233;f&#233;rences
Dim Msto As Recordset
Dim ChemDat As String
Private Sub Command1_Click()
Msto.MoveFirst
Text1 = Msto!refst
End Sub
Private Sub Command2_Click()
Msto.MovePrevious
If Msto.BOF Then
    Command1_Click
Else
    Text1 = Msto!refst
End If
End Sub
Private Sub Command3_Click()
Msto.MoveNext
If Msto.EOF Then
    Command4_Click
Else
    Text1 = Msto!refst
End If
End Sub
Private Sub Command4_Click()
Msto.MoveLast
Text1 = Msto!refst
End Sub
Private Sub Command5_Click()
Set Msto = MyBd.OpenRecordset("select * from stock where refst='" & Text1 & "'")
If Msto.EOF Then
    MsgBox "Pas trouv&#233;!"
    Command4_Click
Else
    Label1 = Msto!designst
End If
End Sub
Private Sub Form_Load()
ChemDat$ = "c:\ges\data\infoglob.mdb"
Set MyBd = OpenDatabase(ChemDat$)
Set Msto = MyBd.OpenRecordset("stock", 1) 'le 1 n'est pas de moi mais c'est pareil 'que dbOpenBase
End Sub
Private Sub Text1_Change()
If Len(Text1) < 8 Then Exit Sub
Command5_Click
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
    Case vbKey0 To vbKey9
    Case vbKeyBack
    Case Else
        KeyAscii = 0
End Select
End Sub

La ligne en rouge fonctionne bien mais 1 fois seulement, apr&#232;s, la base de donn&#233;e est bloqu&#233; sur l'enregistrement trouv&#233; et les contr&#244;les movenext, moveprevious ... ne fonctionnent plus, la base r&#233;pond Eof  ET  Bof True ce qui est bizare pour une base de 90000 r&#233;f&#233;rences!!!
j'ai une solution (pas terrible) qui consiste &#224; ramener la base de donn&#233;e dans une version ant&#233;rieur 
(voir le dernier post de: [javascript:ol('http://www.vbfrance.com/forum.v2.aspx?ID=615330'); http://www.vbfrance.com/forum.v2.aspx?ID=615330])
mais bon, si y'a mieux, je vous &#233;coute moi je renonce a chercher (apres 3 jours de gal&#232;re)
Merci de votre aide
Michel.

FMatrix07 · Accepted Answer

Pour fermer
 Msto.MoveLast
Msto.Close

FMatrix07 · Answer

As-tu essay&#233; avant le end sub
de fermer ton recordset

jpleroisse · Answer

Bonjour,

Relier un contr&#244;le Data &#224; une BD Access 2000. Pour cel&#224; Microsoft DAO 3.6 Object Library doit-&#234;tre install&#233; et s&#233;lectionn&#233;.



Dim daoDB36 As Database
Dim rs As Recordset
Dim sPath As String

sPath = "c:\base.mdb"
Set daoDB36 = DBEngine.OpenDatabase(sPath)
Set rs = daoDB36.OpenRecordset("tClients")
Set Data1.Recordset = rs

jpleroisse

Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

Format access2000 dans vb6???

3 réponses

Discussions similaires