réalisation base de données avec vb et access XP - VB/VBA/VBS - Programmation
Marsh Posté le 03-02-2005 à 10:43:29
D'après moi (mais ca reste à vérifier ) VB ne correspond pas avec AccessXP, il faut que tu convertisse ta base en Access97 il me semble ou peut etre 2000 je sais plus...
tu peux toujours tester ca et puis di nous quoi !
Marsh Posté le 03-02-2005 à 11:40:25
Non, je pense pas que c'est ça.
Mais question bete : tu utilise ADO (jusque la ça va), donc à tu référencé le module ADO dans ton projet?
Marsh Posté le 03-02-2005 à 20:05:34
Bonsoir tout le monde
Je vais éssayer de convertir ma base en 2000 ou 97.
Si par module vous parlez de la propriété du controle ADODC, j'ai configuré la chaine de connexion, et le recordSource.
si ce n'est pas ca, je voix pas ce que vous voulez dire par référencé le module ADO dans mon projet.
Mercie
Cordiallement
A bientôt
Marsh Posté le 03-02-2005 à 20:35:00
Rebonsoir tout le monde
Est ce que DAO resemble à ADO?
Car dans mon livre il parle ADO, mais pas de DAO.
Cordiallement
A bientôt
Marsh Posté le 04-02-2005 à 07:04:38
Bonjour tout le monde.
Je vais dabort change access car DAO ne reconnais pas access XP.
Mercie
Cordiallement
A bientôt
Marsh Posté le 04-02-2005 à 08:09:55
Ben si il connait Access XP
J'utilise DAO sous Office 2003 assez souvent
Marsh Posté le 04-02-2005 à 09:06:44
Rebonjour tout le monde
Je viens de faire la mise a jour de service pack de vb6 et la DAO accepte sans problème access XP
pourriez vous me dire où pourais je trouvrais les tutoraux qui parle ADO.
Mercie
Cordiallement
A bientôt
Marsh Posté le 04-02-2005 à 10:16:51
Citation : Je vais dabort change access car DAO ne reconnais pas access XP. |
Citation : Je viens de faire la mise a jour de service pack de vb6 et la DAO accepte sans problème access XP |
Je l'avais dit que AccessXP n'était pas reconnu...
Vive les Mises à Jour !
Marsh Posté le 04-02-2005 à 11:31:41
Me revoilà
Je m'excuse, j'ai fais une erreur, je voudrais savoir où ont peut trouver les tutoraux concernant DAO.
Mercie!
A bientôt
Marsh Posté le 04-02-2005 à 11:32:30
Moi j'avais appris à m'en servir en lisant l'aide d'Access...
Marsh Posté le 05-02-2005 à 07:22:20
Bonjour tout le monde.
J'ai mis un controle data et je les paramêtré et les code pour qu'il trouve le chemin de la base.
A l'ouverture de la form il me repond format de base non reconnu.
Pourquoi me repond t'il ca?
Peut ton iremédié?
Mercie!
A bientôt
Marsh Posté le 07-02-2005 à 10:24:45
Pour un contrôle Data, je persiste et signe que Access XP n'est pas reconnu...
Donc il faut convertir ta BD
(Access 2000 (je pense que ça passe...) ou 97)
Par contre pr ADO et DAO ca a été vu auparavant dans ce sujet...
Marsh Posté le 07-02-2005 à 10:27:26
Marrant, parce que moi DAO 3.6 fonctionne sous Access 2003
Marsh Posté le 02-02-2005 à 20:19:02
Bonsoir tout le monde
Je vous remercie de m'acceuillir sur ce forum.
Je suis débutant dans le dévellopement de base de données avec Visual Basic,j'ai lu des tutoraux qui
J'ai créé un table qui s'appelle Email.
J'ai mis 6 champs (Destinataire,id,messag,date,objet,expéditeur,heure).
J'ai réalisée 2 form une qui enregistre et l'autre qui visualise les données enregitrés.
L'orsque j'ouvre la form qui visualise les données, il ya un message d'erreur,"Impossible de trouver l'objet dans la collection correspondant au nom ou à la référance ordinale demandé", en selectionnant la premiere ligne ReadRecord.
Je ne comprend pas ce message d'erreur.
Option Explicit
Dim cnx As ADODB.Connection
Dim rst As ADODB.Recordset
Dim rstx As New ADODB.Command
Public serveur As String
Private nextSend As Boolean
Private Sub Form_Load()
Set cnx = New ADODB.Connection
Set rst = New ADODB.Recordset
cnx.Provider = "Microsoft.Jet.Oledb.4.0"
cnx.ConnectionString = App.Path & "\emailenvoyé.mdb"
cnx.Open
rst.CursorLocation = adUseClient
rst.CursorType = adOpenDynamic
rst.LockType = adLockOptimistic
ReadRecord
rst.Source = "select Text2 , Text1 , Text3 ,Text4,Text5,Text6 from EMAIL destinataire, objet,messag,date,heure,id;"
End Sub
Private Sub ReadRecord()
Text1.Text = GetValue(rst!messag)
Text2.Text = GetValue(rst!destinataire)
Text3.Text = GetValue(rst!objet)
Text4.Text = GetValue(rst!id)
Text5.Text = GetValue(rst!date)
Text6.Text = GetValue(rst!heure)
End Sub
Private Function GetValue(fld As String) As String
If IsNull(fld) Then
GetValue = ""
Else
GetValue = fld
End If
End Function
Private Sub Form_Unload(Cancel As Integer)
cnx.Close
End Sub
Que me conseillez vous?
Pourriez vous me dire où puis je trouver des livres qui traite bien ce sujet?
Mercie
Cordiallement
A bientôt