En ligne · [ Standard ] · Linéaire+ Le Thread le plus long

[Laskov]

non g tout manger

[Arsenik_]

bon bah tant pis je vais me contenter de manger des zolives

[Laskov]

moi je trouve sa amer les zolive ta pas quelque cornichon ??

[Arsenik_]

si regarde dans la porte du frigo

[Laskov]

ha merci !

tient une boite de terrine de lapkill sa doit etres bon

[Arsenik_]

avec du bon pain bien frais fourni par WillyLutin et des cornichons ca cale bien l'estomac

[zolive]

t'es foutu Laskov... Arsenik_ a mis du poison sur les cornichons.

[Laskov]

sa va elle m'aime bien donc elle a mis qu'une petite dose pour le gout

[PoP]

CODE

Option Explicit Public Function loadSessions() As Boolean Dim boolAnswer As Boolean Dim rsSessions As ADOCE.Recordset Set rsSessions = adoCONNECT.Execute("SELECT * FROM tblSessions ORDER BY DATEsession, DEBUTsession DESC") boolOrderByDateASC = False boolOrderBySpotASC = False frmMAIN.lstSessions.ListItems.Clear While Not rsSessions.EOF Dim liSessions As ListItem Set liSessions = frmMAIN.lstSessions.ListItems.Add(1, _ CStr(rsSessions.Fields("IDsession").Value), _ rsSessions.Fields("DATEsession").Value) liSessions.SubItems(1) = rsSessions.Fields("SPOTsession").Value rsSessions.MoveNext Wend rsSessions.Close Set rsSessions = Nothing boolAnswer = True loadSessions = boolAnswer End Function Public Function loadTools() As Boolean Dim boolAnswer As Boolean Dim rsTools As ADOCE.Recordset frmAddSession.cmbTools.Clear Set rsTools = adoCONNECT.Execute("SELECT TOOLsession FROM tblSessions ORDER BY TOOLsession") rsTools.MoveFirst While Not rsTools.EOF frmAddSession.cmbTools.AddItem (rsTools.Fields("TOOLsession").Value) rsTools.MoveNext Wend rsTools.Close Set rsTools = Nothing boolAnswer = True loadTools = boolAnswer End Function Public Function loadSpots() As Boolean Dim boolAnswer As Boolean Dim rsSpots As ADOCE.Recordset frmAddSession.cmbSpots.Clear Set rsSpots = adoCONNECT.Execute("SELECT SPOTsession FROM tblSessions ORDER BY SPOTsession") While Not rsSpots.EOF frmAddSession.cmbSpots.AddItem (rsSpots.Fields("SPOTsession").Value) rsSpots.MoveNext Wend rsSpots.Close Set rsSpots = Nothing boolAnswer = True loadSpots = boolAnswer End Function Public Function addSession(strDateSession As String, strDebutSession As String, strFinSession As String, strToolSession As String, strSpotSession As String) As Boolean Dim boolAnswer As Boolean Dim lngIDsession As Long Dim rsID As ADOCE.Recordset Set rsID = adoCONNECT.Execute("SELECT IDsession FROM tblsessions ORDER BY IDsession DESC") lngIDsession = rsID.Fields("IDsession").Value + 1 adoCONNECT.Execute ("INSERT INTO tblSessions(IDsession, DATEsession, DEBUTsession, FINsession, TOOLsession, SPOTsession) VALUES (" & lngIDsession & "," & Chr(34) & strDateSession & Chr(34) & "," & Chr(34) & strDebutSession & Chr(34) & "," & Chr(34) & strFinSession & Chr(34) & "," & Chr(34) & strToolSession & Chr(34) & "," & Chr(34) & strSpotSession & Chr(34) & ")") boolAnswer = True addSession = boolAnswer End Function Public Function findSession(lngIDsession As Long) As Boolean Dim boolAnswer As Boolean Dim rsSession As ADOCE.Recordset Set rsSession = adoCONNECT.Execute("SELECT * FROM tblSessions WHERE IDsession=" _ & lngIDsession) If Not rsSession.EOF Then frmViewSession.lblDate = rsSession.Fields("DATEsession").Value frmViewSession.lblDebut = rsSession.Fields("DEBUTsession").Value frmViewSession.lblFin = rsSession.Fields("FINsession").Value frmViewSession.lblSpot = rsSession.Fields("SPOTsession").Value frmViewSession.lblTool = rsSession.Fields("TOOLsession").Value End If rsSession.Close Set rsSession = Nothing boolAnswer = True findSession = boolAnswer End Function Public Function orderByDate() As Boolean Dim boolAnswer As Boolean Dim rsSessions As ADOCE.Recordset Dim strOrder As String If boolOrderByDateASC = True Then strOrder = " DESC" boolOrderByDateASC = False Else: strOrder = " ASC" boolOrderByDateASC = True End If Set rsSessions = adoCONNECT.Execute("SELECT * FROM tblsessions ORDER BY DATEsession" & strOrder) frmMAIN.lstSessions.ListItems.Clear While Not rsSessions.EOF Dim liSessions As ListItem Set liSessions = frmMAIN.lstSessions.ListItems.Add(1, _ CStr(rsSessions.Fields("IDsession").Value), _ rsSessions.Fields("DATEsession").Value) liSessions.SubItems(1) = rsSessions.Fields("SPOTsession").Value rsSessions.MoveNext Wend rsSessions.Close Set rsSessions = Nothing boolAnswer = True orderByDate = boolAnswer End Function Public Function orderBySpot() As Boolean Dim boolAnswer As Boolean Dim rsSessions As ADOCE.Recordset Dim strOrder As String If boolOrderBySpotASC = True Then strOrder = " DESC" boolOrderBySpotASC = False Else: strOrder = " ASC" boolOrderBySpotASC = True End If Set rsSessions = adoCONNECT.Execute("SELECT * FROM tblsessions ORDER BY SPOTsession" & strOrder) frmMAIN.lstSessions.ListItems.Clear While Not rsSessions.EOF Dim liSessions As ListItem Set liSessions = frmMAIN.lstSessions.ListItems.Add(1, _ CStr(rsSessions.Fields("IDsession").Value), _ rsSessions.Fields("DATEsession").Value) liSessions.SubItems(1) = rsSessions.Fields("SPOTsession").Value rsSessions.MoveNext Wend rsSessions.Close Set rsSessions = Nothing boolAnswer = True orderBySpot = boolAnswer End Function

et hop, du eVB!

[Laskov]

tient qui osserai mettre un code source d'une aplication microsoft ici ??

[zolive]

déconne pas, cela va faire planter le serveur...

[Laskov]

ha vi ta raison il on surement trouver le moyen de bugger le code source quand on le lit

[Arsenik_]

ZZZZZZZZZZzzzzzzzzzzzzzzzZZZZZZZZZZZZZZzzzzzzzzzzzzzzz

ZZZZZZZZZZzzzzzzzzzzzzzzzZZZZZZZZZZZZZZzzzzzzzzzzzzzzz

ZZZZZZZZZZzzzzzzzzzzzzzzzZZZZZZZZZZZZZZzzzzzzzzzzzzzzz

RONFTL

RONTFL

ZZZZZZZZZZzzzzzzzzzzzzzzzZZZZZZZZZZZZZZzzzzzzzzzzzzzzz
ZZZZZZZZZZzzzzzzzzzzzzzzzZZZZZZZZZZZZZZzzzzzzzzzzzzzzz
ZZZZZZZZZZzzzzzzzzzzzzzzzZZZZZZZZZZZZZZzzzzzzzzzzzzzzz
ZZZZZZZZZZzzzzzzzzzzzzzzzZZZZZZZZZZZZZZzzzzzzzzzzzzzzz

RONRON

[TurCirith]

http://www.brunching.com/toys/toy-cyborger.html

[zolive]

[Laskov]

bah je suis pas un fan de geluck mais des fois il raconte des chose tellement vrai

[Arsenik_]

ah si moi j'adore ce chat tres philosophe qui montre des vérités souvent cachées ;-)

[Laskov]

bah le coté philo je m'en tape un peut mais je trouve qu'il ferai bien de revoir un peut sont coup de crayon car il a pas beaucoup évoluer

[Arsenik_]

c la simplicité du dessin qui fait tout son charme

[Laskov]

bah quand meme son dessin et limite

[Arsenik_]

t rabat joie toi
jamais d'OK avec personne et surtout avec moi ...


tttsss

[Laskov]

Ok Arsenik

[Arsenik_]

Laskov mé ttu sais bien que je t'aime
t'es mon flooder unique et préféré

[Laskov]

Rha sa fait du bien d'entendre sa

[Arsenik_]

tu vois que je suis un ange adorable

[Laskov]

adorable je n'irais pas jusque la mais tu est quand meme douce

[Arsenik_]

ops:

:P

/me a fait sa bonne action de la journée

[Laskov]

haaaa ??? tu n'en fait q'une seul ??? moi j'en fait jamais

[Arsenik_]

oui c un accord passé avec Méphisto lui meme

[Laskov]

ha tient tu le connais ???
tu devrais lui demander de passer prendre le café un soir