Bonjour.
Je devellope un soft avec VB6 sur XP PRO.
A l'autre bout il y aWIN200 SERVEUR et MYSQL.
de mon coté j'utiliste les outils ADO.
voici mon code actuel
Adodc1.Recordset.Index = "Login"
Adodc1.Recordset.Seek "='" & Text1(0).Text & "'", adSeekFirstEQ
If Adodc1.Recordset("Login") = Text1(0).Text Then
Rep = Box(NomProgramme, "Ce login Existe déjà !", "OK", "")
EndIf
La recherche ne fonctionne pas.
Je pense qu'il manque quelque chose.
Sur mysql j'ai bien defini mon index, il y a bien dans ma base la valeur du
text1(0).text le pointeur du recordset reste sur le 1 enregistrement.
Y a il qqun qui à déjà utilisé seek et index avec l'objet ado ??
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
Quasimodo
Marc formulated on Tuesday :
Bonjour. Je devellope un soft avec VB6 sur XP PRO. A l'autre bout il y aWIN200 SERVEUR et MYSQL.
de mon coté j'utiliste les outils ADO. voici mon code actuel Adodc1.Recordset.Index = "Login" Adodc1.Recordset.Seek "='" & Text1(0).Text & "'", adSeekFirstEQ If Adodc1.Recordset("Login") = Text1(0).Text Then Rep = Box(NomProgramme, "Ce login Existe déjà !", "OK", "") EndIf
La recherche ne fonctionne pas. Je pense qu'il manque quelque chose. Sur mysql j'ai bien defini mon index, il y a bien dans ma base la valeur du text1(0).text le pointeur du recordset reste sur le 1 enregistrement.
Y a il qqun qui à déjà utilisé seek et index avec l'objet ado ??
Par avance merci.
Marc
bonjour, a l'ouverture du recordset vous devez définir l'option tabledirect.
@+Quaz
-- This is an automatic signature of MesNews. Site : http://mesnews.no-ip.com
Marc formulated on Tuesday :
Bonjour.
Je devellope un soft avec VB6 sur XP PRO.
A l'autre bout il y aWIN200 SERVEUR et MYSQL.
de mon coté j'utiliste les outils ADO.
voici mon code actuel
Adodc1.Recordset.Index = "Login"
Adodc1.Recordset.Seek "='" & Text1(0).Text & "'", adSeekFirstEQ
If Adodc1.Recordset("Login") = Text1(0).Text Then
Rep = Box(NomProgramme, "Ce login Existe déjà !", "OK", "")
EndIf
La recherche ne fonctionne pas.
Je pense qu'il manque quelque chose.
Sur mysql j'ai bien defini mon index, il y a bien dans ma base la valeur du
text1(0).text le pointeur du recordset reste sur le 1 enregistrement.
Y a il qqun qui à déjà utilisé seek et index avec l'objet ado ??
Par avance merci.
Marc
bonjour,
a l'ouverture du recordset vous devez définir l'option tabledirect.
@+Quaz
--
This is an automatic signature of MesNews.
Site : http://mesnews.no-ip.com
Bonjour. Je devellope un soft avec VB6 sur XP PRO. A l'autre bout il y aWIN200 SERVEUR et MYSQL.
de mon coté j'utiliste les outils ADO. voici mon code actuel Adodc1.Recordset.Index = "Login" Adodc1.Recordset.Seek "='" & Text1(0).Text & "'", adSeekFirstEQ If Adodc1.Recordset("Login") = Text1(0).Text Then Rep = Box(NomProgramme, "Ce login Existe déjà !", "OK", "") EndIf
La recherche ne fonctionne pas. Je pense qu'il manque quelque chose. Sur mysql j'ai bien defini mon index, il y a bien dans ma base la valeur du text1(0).text le pointeur du recordset reste sur le 1 enregistrement.
Y a il qqun qui à déjà utilisé seek et index avec l'objet ado ??
Par avance merci.
Marc
bonjour, a l'ouverture du recordset vous devez définir l'option tabledirect.
@+Quaz
-- This is an automatic signature of MesNews. Site : http://mesnews.no-ip.com
