Discussion :

[zidane2]

Bonjour à tous
Enfin avec votre aide précieux, Je viens de finir avec ma petite application. Comme dernière étape je voudrai distribuer mon application pour une période limitéé et puis le programme va s'arréter en demandant à l'utilisateur d'entrer une clé pour activer le programme. J'ai trouvé ce code dans un forum que j'ai adapté et introduit dans mon application mais il parrait qu'il y'a un probléme car je recois des messages d'erreurs liées à RS.FindFirst et RS.NoMatch (data not found) (type mismatch...)
le code originale:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Dim DB As Database
Dim RS As Recordset
Private Sub Form_Load()
 
Dim COD As String
Dim Now As Date
Dim s As String
Dim SS As Date
Now = Date
Dim ts As String
'''''''''''''''''''
''''''''''''''''''
 
SS = Format$(DateDiff("d", -30, Now))
'Text3.Text = ts
s = GetSetting("ooo", "oo", "oo", Text1.Text)
Text1.Text = s
'If Not ts = "" Then
'If ts < Now Then
'MsgBox ts
'Unload Me
'End If
'End If
'''''''''''''''''''''''''''''''
If Trim$(Text1.Text) = "" Then
Text1.Text = SS
SaveSetting "ooo", "oo", "oo", SS
SaveSetting "ooo", "oo", "osama", Now
 
 
End If
'
'''''''''''''''''''''''''''
 
COD = GetSetting("OSAMA", "OSAMA", " CODE", Text2.Text)
Text2.Text = CODE
Set DB = OpenDatabase("REGSTED.mdb", False, False, ";pwd=" & "123")
Set RS = DB.OpenRecordset("REG_DATA", 2)
RS.FindFirst "CODE='" + Text2.Text + "'"
If RS.NoMatch Then
 
s = GetSetting("ooo", "oo", "oo", SS)
Text1.Text = s
Else
MsgBox "le programme est enregistré avec succés"
Unload Me
Exit Sub
End If
s = GetSetting("ooo", "oo", "oo", SS)
ts = GetSetting("ooo", "oo", "osama", Text3.Text)
Text3.Text = ts
If ts > Now Then
MsgBox "la période d'éssai est terminée"
 
Unload Me
Exit Sub
End If
Dim regm As String
 
regm = MsgBox("la période d'éssai est terminée, voulez vous enregitrer? vbYesNo)
If regm = vbNo Then
Unload Me
Else
FORM2.Show
Unload Me
End If
Exit Sub
 
 
End If

le code adapté:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
Dim DB As ADODB.Connection
Dim RS As ADODB.Recordset
Private Sub Form_Load()
With Me.Adodc1
 .ConnectionString = "F:\logicièl\database.mdb"
 
End With
 
Dim COD As String
Dim Now As Date
Dim s As String
Dim SS As Date
Now = Date
Dim ts As String
'''''''''''''''''''
''''''''''''''''''
 
SS = Format$(DateDiff("d", -30, Now))
'Text3.Text = ts
s = GetSetting("ooo", "oo", "oo", Text1.Text)
Text1.Text = s
'If Not ts = "" Then
'If ts < Now Then
'MsgBox ts
'Unload Me
'End If
'End If
'''''''''''''''''''''''''''''''
If Trim$(Text1.Text) = "" Then
Text1.Text = SS
SaveSetting "ooo", "oo", "oo", SS
SaveSetting "ooo", "oo", "osama", Now
 
 
End If
'
'''''''''''''''''''''''''''
 
COD = GetSetting("OSAMA", "OSAMA", " CODE", Text2.Text)
Text2.Text = CODE
Set DB = OpenDatabase("database.mdb", False, False, ";pwd=" & "abc")
Set RS = DB.OpenRecordset("table3", 2)
RS.FindFirst "CODE='" + Text2.Text + "'"
If RS.NoMatch Then
 
s = GetSetting("ooo", "oo", "oo", SS)
Text1.Text = s
Else
MsgBox "le programme est enregistré avec succés"
Unload Me
Exit Sub
End If
s = GetSetting("ooo", "oo", "oo", SS)
ts = GetSetting("ooo", "oo", "osama", Text3.Text)
Text3.Text = ts
If ts > Now Then
MsgBox "la période d'éssai est terminée"
FORM8.Show
Unload Me
Exit Sub
End If
Dim regm As String
 
regm = MsgBox("la période d'éssai est terminée, voulez vous enregitrer vbYesNo)
If regm = vbNo Then
Unload Me
Else
FORM8.Show
Unload Me
End If
Exit Sub
 
 
End If

Je dois noter que j'ai crée une table avec les méme champs que le modèle que j'ai piqué du forum.
Merci à tous

[BERRACHED SAID]

Salut Zidane

c'est Normale la connexion dans le code originale est en :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ADODB.Recordset

et la conexion dans ton code est en :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Me.Adodc1
 .ConnectionString = "F:\logicièl\database.mdb"
End With

Donc il y a une confusion, il faut revoir l'adaptation et ton code il ne reconnais même pas le Recordset(Rs) il faut choisir ou l'un ou l'autre.

au revoir

[zidane2]

Merci M.BERRACHED de ta réponse.

il faut revoir l'adaptation et ton code

pouvez vous m'aider à adapter ce code et je vous serais trés reconnaissant?

[BERRACHED SAID]

Salut zidane

si tu es en ADODB je peux t'aidé mais si tu es Adodc dessolé je n'ai jamais travaille avec.
je laisse le soins aux plus chevronnés en la matière qui peuvent t'apporter Plus.

Cordialement

[zidane2]

Dans mes requetes je me sert de ce code pour ouvrir ma base de donnée.
Set DB = New ADODB.Connection
Set RS = New ADODB.Recordset

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database password=abc; Data Source=" & App.Path & "\database.mdb"
 
       RS.Open "select * from table1 ", DB, adOpenDynamic, adLockOptimistic

J'ai éssayé de l'utilisés au lieu de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set DB = OpenDatabase("REGSTED.mdb", False, False, ";pwd=" & "abc")
Set RS = DB.OpenRecordset("REG_DATA", 2)

Mais ça pas marché.
Ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RS.FindFirst

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RS.NoMatch

ne sont pas reconnu du tout avec ma requette.

[zidane2]

Désolé j'ai pas vu votre message!
Quelle est la difference entre adodc et adodb?
Mais je crois que je suis avec Adodb.

[BERRACHED SAID]

Salut

c'est un peu compliqué mais je vois la chose de cette manière

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
RS.Open "select * from [table3]", cn, adOpenDynamic, adLockOptimistic
RS.Find "[Ton Champ] like '" & Text2.Text & "'"
If RS.EOF Then
'la suite...

Cordialement