ilhanxxx Posted December 5, 2008 Share Posted December 5, 2008 Set objRecordset = CreateObject("ADODB.Recordset") objRecordset.CursorLocation = adUseClient objRecordset.Open "Select * from puantaj where tarih BETWEEN #" & tarih.value & "# AND #" & tarih2.value & "# and adsoyad='" & kim & "'" , objConnection, adOpenStatic, adLockOptimistic Ne yaptıysam sorgu çalışmadı , Adısoyadı .... olan kişinin iki tarih arası sorgulaması lazım. SQL Link to comment Share on other sites More sharing options...
cumman Posted December 5, 2008 Share Posted December 5, 2008 "Select * from puantaj where (tarih BETWEEN " & tarih.value & " AND " & tarih2.value & ") and (adsoyad='" & kim & "') sorgularini parantezle ayirirsan calisir Link to comment Share on other sites More sharing options...
ilhanxxx Posted December 5, 2008 Author Share Posted December 5, 2008 "Select * from puantaj where (tarih BETWEEN " & tarih.value & " AND " & tarih2.value & ") and (adsoyad='" & kim & "')sorgularini parantezle ayirirsan calisir yOK Gene Olmadı <script> Sub Yazdir() kim = adsoyad.value tarihne = tarih.value On Error Resume Next Set objConnection = CreateObject("ADODB.Connection") objConnection.Open "Provider= Microsoft.Jet.OLEDB.4.0; Data Source=Rapor.mdb" Set objRecordset = CreateObject("ADODB.Recordset") objRecordset.CursorLocation = adUseClient objRecordset.Open "Select * from puantaj where (tarih BETWEEN " & tarih.value & " AND " & tarih2.value & ") and (adsoyad='" & kim & "')" , objConnection, adOpenStatic, adLockOptimistic Set mesaitop = CreateObject("ADODB.Recordset") mesaitop.CursorLocation = adUseClient mesaitop.Open "Select SUM(Mesaisaat) As Mesaitoplam FROM puantaj where adsoyad='" & kim & "'" , objConnection, adOpenStatic, adLockOptimistic Set calistop = CreateObject("ADODB.Recordset") calistop.CursorLocation = adUseClient calistop.Open "Select SUM(Calismasaat) As Calistoplam FROM puantaj where adsoyad='" & kim & "'" , objConnection, adOpenStatic, adLockOptimistic Set Maasset = CreateObject("ADODB.Recordset") Maasset.CursorLocation = adUseClient Maasset.Open "SELECT * FROM personellistesi where adsoyad='" & kim & "'" , objConnection, adOpenStatic, adLockOptimistic maaskac = MaasSet("maas") saatucret = maaskac/30/8 mesaiucret = saatucret*mesaitop("Mesaitoplam")*150/100 toplam = saatucret*calistop("Calistoplam")+mesaiucret aylik = toplam*30 strHTML = "<table width='100%' border='0' cellspacing='1' cellpadding='1'><tr><td colspan='7'>" & toplama & "Adı Soyadı : " & kim & "</td></tr>" sayi = 1 Do Until objRecordSet.EOF strHTML = strHTML & "<td width='4%' align='center'>" & sayi & "</td><td width='4%' align='center'>Tarih</td><td width='20%'>" & objRecordSet("tarih") & "</td><td width='16%' align='center'>Çalışma Saati </td><td width='22%'>" & objRecordSet("calismasaat") & "</td><td width='8%' align='center'>Mesai</td><td width='26%'>" & objRecordSet("mesaisaat") & "</td></tr>" objRecordSet.MoveNext sayi = sayi +1 Loop strHTML = strHTML & "<tr><td colspan='3'>Toplam Saat </td><td align='center'>" & calistop("Calistoplam") & "</td><td colspan='2' align='center'>" & mesaitop("Mesaitoplam") & "</td></tr><tr><td colspan='6'> </td></tr><tr><td colspan='3'><li>Maaş <b>" & formatCurrency(maaskac) & "</b><li> Saat Ücret <b>" & formatCurrency(saatucret) & "</b><li> Mesai Ücreti <b>" & formatCurrency(mesaiucret) & "</b></td><td colspan='3' align='center'><b>" & formatCurrency(toplam) & "</b></td></tr></table>" YazdirSirala.InnerHTML = strHTML End Sub </script> Link to comment Share on other sites More sharing options...
cumman Posted December 5, 2008 Share Posted December 5, 2008 tarih2.value yi cagirmamissin . tarih2.value yide cagir tarih.value gibi. birde hata veriyorsa verdigi hatayida yazarsan daha yardimci olabilirim. Link to comment Share on other sites More sharing options...
ilhanxxx Posted December 5, 2008 Author Share Posted December 5, 2008 tarih2.value yi cagirmamissin . tarih2.value yide cagir tarih.value gibi. birde hata veriyorsa verdigi hatayida yazarsan daha yardimci olabilirim. bu .hta ve hiç hata mesajı yok. sadece donuyor. Link to comment Share on other sites More sharing options...
ilhanxxx Posted December 5, 2008 Author Share Posted December 5, 2008 Adı Soyadı : İlhan Çolak Toplam Saat 2 0 Maaş 600,00 TL Saat Ücret 2,50 TL Mesai Ücreti 0,00 TL 5,00 TL sonuc hiç bişe listelemedi. <html> <head> <title>BelGROUP Personel Listesi</title> <HTA:APPLICATION ID="BelGROUP Faliyet Raporu." APPLICATIONNAME="BelGROUP" SCROLL="no" SINGLEINSTANCE="yes" WINDOWSTATE="maximize" > <link href="css/style.css" rel="stylesheet" type="text/css"> <style type="text/css"> <!-- .style3 {font-size: x-large} --> </style> </head><script> function raporyazdir(elementId) { var printContent = document.getElementById(elementId); var windowUrl = 'about:blank'; var uniqueName = new Date(); var windowName = 'Print' + uniqueName.getTime(); var printWindow = window.open(windowUrl, windowName, 'left=50000,top=50000,width=0,height=0'); printWindow.document.write(printContent.innerHTML); printWindow.document.close(); printWindow.focus(); printWindow.print(); printWindow.close(); location.reload(); } function kapat() { var cevap; cevap=window.confirm('Personel Listesi Kapatilsinmi ?'); if (cevap==true) { window.close() } else { false } } function sil() { var cevap; cevap=window.confirm('Personelin Silinmesini Onayliyormusunuz?'); if (cevap==true) { silonay();msg();location.reload(); } else { false } } function puantajekle() { var cevap; cevap=window.confirm('Puantaj Girisi Yapiliyor.' ); if (cevap==true) { puantajonay();msg();location.reload(); } else { false } } function msg() { alert('Islem Tamam'); } function duzenle() { var cevap; cevap=window.confirm('Böyle Bir Kayit Zaten Mevcut. Degistirilsinmi?'); if (cevap==true) { duzenonay();location.reload(); } else { false } } <!-- function yasakla() { var ctrl=window.event.ctrlKey; var tecla=window.event.keyCode; if (tecla==112) {window.event.keyCode=0; window.event.returnValue=false; alert(' BelGROUP PERSONEL\n\nKisayol Tuslari\n_____________________________:\n\n * F1 - Yardim Menüsü\n * F2 - Menu\n * F3 - Menu\n * F4 - Menu\n * F5 - Yenile');} if (tecla==116) {window.event.keyCode=0; window.event.returnValue=false; location.reload();} } <!-- function MM_openBrWindow(theURL,winName,features) { //v2.0 window.open(theURL,winName,features); } function ekran() { if (screen.width < "1024") { alert("Bu site " + screen.width + " x " + screen.height + " Ekran çözünürlügünde düzgün görüntülenemez,Enaz 1024 x 768 olmasi gerekir.Mümkünse çözünürlügünüzü arttirin"); } } //--> <!-- var cikis = window.external; var tabNum = 0; //--> function showhide(targetID) { //change target element mode var elementmode = document.getElementById(targetID).style; elementmode.display = (!elementmode.display) ? 'none' : ''; } function changetext(changee,oldText,newText) { //changes text in source element var elementToChange = document.getElementById(changee); elementToChange.innerHTML = (elementToChange.innerHTML == oldText) ? newText : oldText; } function workforchange(targetID,sourceID,oldContent,newContent) { showhide(targetID); changetext(sourceID,oldContent,newContent); } </script> <script language="vbscript"> Const adOpenStatic = 3 Const adLockOptimistic = 3 Const adUseClient = 3 Sub Window_Onload tarih.value = "" & Date() & "" Set objConnection = CreateObject("AdODB.Connection") objConnection.Open "Provider= Microsoft.Jet.OLEDB.4.0; Data Source=rapor.mdb" Set objRecordset = CreateObject("AdODB.Recordset") objRecordset.CursorLocation = adUseClient objRecordset.Open "SELECT DISTINCT Personellistesi.Adsoyad FROM Personellistesi ORDER BY Personellistesi.Adsoyad" , objConnection, AdOpenStatic, AdLockOptimistic objRecordSet.MoveFirst strHTML = "<span id='ds-usernme'><input name='adsoyad' onChange=""Yenikayitac()"" type='text' id='adsoyad' class='searchbox' value='Adi Soyadi' onfocus=""this.value = '';"" onblur=""if(this.value=='') this.value='Adi Soyadi';""></span><span id='searcharea'><select style='width: 90' onChange=""Adsoyadbul()"" name=""Adsoyadsec"" class='searchbox'>" strHTML = strHTML & "<option value= " & chr(34) & chr(34) & ">" Do Until objRecordSet.EOF strHTML = strHTML & "<option value= " & chr(34) & _ objRecordSet.Fields.Item("adsoyad") & chr(34) & _ ">" & objRecordSet.Fields.Item("adsoyad") objRecordSet.MoveNext Loop strHTML = strHTML & "</select></span>" AdsoyadListe.InnerHTML = strHTML gt.disabled = true ct.disabled = true tlf.disabled = true adr.disabled = true meslk.disabled = true ms.disabled = true kayit.disabled = true kaydetduzen.disabled = true kayitsil.disabled = true kayitaktar.disabled = true End Sub Sub Adsoyadbul() adsoyad.value = Adsoyadsec.Value On Error Resume Next adsoyaddb = Adsoyadsec.Value Set objConnection = CreateObject("ADODB.Connection") objConnection.Open "Provider= Microsoft.Jet.OLEDB.4.0; Data Source=Rapor.mdb" Set objRecordset = CreateObject("ADODB.Recordset") objRecordset.CursorLocation = adUseClient objRecordset.Open "SELECT * FROM personellistesi Where adsoyad = '" & adsoyaddb & "'" , objConnection, adOpenStatic, adLockOptimistic objRecordSet.MoveFirst giristarih.InnerHTML = "" & objRecordSet.Fields.Item("giristarih") cikistarih.InnerHTML = "" & objRecordSet.Fields.Item("cikistarih") telefon.InnerHTML = "" & objRecordSet.Fields.Item("telefon") adres.InnerHTML = "" & objRecordSet.Fields.Item("adres") meslek.InnerHTML = "" & objRecordSet.Fields.Item("meslek") maas.InnerHTML = "" & objRecordSet.Fields.Item("maas") id.value = "" & objRecordSet.Fields.Item("id") gt.disabled = true ct.disabled = true tlf.disabled = true adr.disabled = true meslk.disabled = true ms.disabled = true kayit.disabled = true kaydetduzen.disabled = true kayitsil.disabled = false kayitaktar.disabled = false End Sub Sub Yenikayitac() gt.disabled = false ct.disabled = false tlf.disabled = false adr.disabled = false meslk.disabled = false ms.disabled = false kayit.disabled = false kaydetduzen.disabled = false End Sub Sub Yenikayit() kim = adsoyad.value On Error Resume Next Set objConnection = CreateObject("ADODB.Connection") objConnection.Open "Provider= Microsoft.Jet.OLEDB.4.0; Data Source=Rapor.mdb" Set objRecordset = CreateObject("ADODB.Recordset") objRecordset.CursorLocation = adUseClient objRecordset.Open "SELECT * FROM personellistesi where adsoyad='" & kim & "'" , objConnection, adOpenStatic, adLockOptimistic toplam = objRecordset.recordcount if toplam = 0 then objRecordSet.addnew objRecordSet("adsoyad") = "" & adsoyad.value objRecordSet("giristarih") = "" & gt.value objRecordSet("telefon") = "" & tlf.value objRecordSet("adres") = "" & adr.value objRecordSet("meslek") = "" & meslk.value objRecordSet("maas") = "" & ms.value objRecordSet.update Adsoyadsec.Value = " " KayitTamam = "" & kim & " Kayit Islemi Tamamlandi" Mesaj.InnerHTML = KayitTamam else KayitTamam = " " & kim & " Adinda Kayitli Personel Zaten Var. Toplam " & toplam & " Kayit" Mesaj.InnerHTML = KayitTamam response.redirect("duzenle();") end if End Sub Sub duzenonay() kim = Adsoyad.value On Error Resume Next Set objConnection = CreateObject("ADODB.Connection") objConnection.Open "Provider= Microsoft.Jet.OLEDB.4.0; Data Source=Rapor.mdb" Set objRecordset = CreateObject("ADODB.Recordset") objRecordset.CursorLocation = adUseClient objRecordset.Open "SELECT * FROM personellistesi where adsoyad='" & kim & "'" , objConnection, adOpenStatic, adLockOptimistic objRecordSet("adsoyad") = "" & adsoyad.value objRecordSet("giristarih") = "" & gt.value objRecordSet("cikistarih") = "" & ct.value objRecordSet("telefon") = "" & tlf.value objRecordSet("adres") = "" & adr.value objRecordSet("meslek") = "" & meslk.value objRecordSet("maas") = "" & ms.value objRecordSet.update Adsoyadsec.Value = " " KayitTamam = "" & kim & " Düzenleme Islemi Tamamlandi" Mesaj.InnerHTML = KayitTamam End Sub Sub aktar() kim = Adsoyad.value On Error Resume Next Set objConnection = CreateObject("ADODB.Connection") objConnection.Open "Provider= Microsoft.Jet.OLEDB.4.0; Data Source=Rapor.mdb" Set objRecordset = CreateObject("ADODB.Recordset") objRecordset.CursorLocation = adUseClient objRecordset.Open "SELECT * FROM personellistesi where adsoyad='" & kim & "'" , objConnection, adOpenStatic, adLockOptimistic adsoyad.value = "" & objRecordSet("adsoyad") gt.value = "" & objRecordSet("giristarih") ct.value = "" & objRecordSet("cikistarih") tlf.value = "" & objRecordSet("telefon") adr.value = "" & objRecordSet("adres") meslk.value = "" & objRecordSet("meslek") ms.value = "" & objRecordSet("maas") Adsoyadsec.Value = " " KayitTamam = "" & kim & " Düzenleme Için Aktarim Islemi Tamamlandi" Mesaj.InnerHTML = KayitTamam gt.disabled = false ct.disabled = false tlf.disabled = false adr.disabled = false meslk.disabled = false ms.disabled = false kayit.disabled = True kaydetduzen.disabled = false End Sub Sub silonay() kim = Adsoyad.value On Error Resume Next Set objConnection = CreateObject("ADODB.Connection") objConnection.Open "Provider= Microsoft.Jet.OLEDB.4.0; Data Source=Rapor.mdb" Set objRecordset = CreateObject("ADODB.Recordset") objRecordset.CursorLocation = adUseClient objRecordset.Open "DELETE FROM personellistesi where adsoyad='" & kim & "'" , objConnection, adOpenStatic, adLockOptimistic KayitTamam = "" & idno & " Numarali Kayit Silindi." Mesaj.InnerHTML = KayitTamam End Sub Sub puantajonay() kim = adsoyad.value tarihne = tarih.value On Error Resume Next Set objConnection = CreateObject("ADODB.Connection") objConnection.Open "Provider= Microsoft.Jet.OLEDB.4.0; Data Source=Rapor.mdb" Set objRecordset = CreateObject("ADODB.Recordset") objRecordset.CursorLocation = adUseClient objRecordset.Open "SELECT * FROM puantaj where adsoyad='" & kim & "'" , objConnection, adOpenStatic, adLockOptimistic objRecordSet.addnew objRecordSet("adsoyad") = "" & adsoyad.value objRecordSet("tarih") = "" & tarih.value objRecordSet("calismasaat") = "" & calismasaat.value objRecordSet("mesaisaat") = "" & mesaisaat.value objRecordSet.update KayitTamam = "" & kim & " Kayit Islemi Tamamlandi" Mesaj.InnerHTML = KayitTamam end sub Sub Yazdir() kim = adsoyad.value tarihne = tarih.value On Error Resume Next Set objConnection = CreateObject("ADODB.Connection") objConnection.Open "Provider= Microsoft.Jet.OLEDB.4.0; Data Source=Rapor.mdb" Set objRecordset = CreateObject("ADODB.Recordset") objRecordset.CursorLocation = adUseClient objRecordset.Open "Select * from puantaj where (tarih BETWEEN ""30.11.2008"" AND ""05.12.2208"") and (adsoyad='" & kim & "')" , objConnection, adOpenStatic, adLockOptimistic Set mesaitop = CreateObject("ADODB.Recordset") mesaitop.CursorLocation = adUseClient mesaitop.Open "Select SUM(Mesaisaat) As Mesaitoplam FROM puantaj where adsoyad='" & kim & "'" , objConnection, adOpenStatic, adLockOptimistic Set calistop = CreateObject("ADODB.Recordset") calistop.CursorLocation = adUseClient calistop.Open "Select SUM(Calismasaat) As Calistoplam FROM puantaj where adsoyad='" & kim & "'" , objConnection, adOpenStatic, adLockOptimistic Set Maasset = CreateObject("ADODB.Recordset") Maasset.CursorLocation = adUseClient Maasset.Open "SELECT * FROM personellistesi where adsoyad='" & kim & "'" , objConnection, adOpenStatic, adLockOptimistic maaskac = MaasSet("maas") saatucret = maaskac/30/8 mesaiucret = saatucret*mesaitop("Mesaitoplam")*150/100 toplam = saatucret*calistop("Calistoplam")+mesaiucret aylik = toplam*30 strHTML = "<table width='100%' border='0' cellspacing='1' cellpadding='1'><tr><td colspan='7'>" & toplama & "Adı Soyadı : " & kim & "</td></tr>" sayi = 1 Do Until objRecordSet.EOF strHTML = strHTML & "<td width='4%' align='center'>" & sayi & "</td><td width='4%' align='center'>Tarih</td><td width='20%'>" & objRecordSet("tarih") & "</td><td width='16%' align='center'>Çalışma Saati </td><td width='22%'>" & objRecordSet("calismasaat") & "</td><td width='8%' align='center'>Mesai</td><td width='26%'>" & objRecordSet("mesaisaat") & "</td></tr>" objRecordSet.MoveNext sayi = sayi +1 Loop strHTML = strHTML & "<tr><td colspan='3'>Toplam Saat </td><td align='center'>" & calistop("Calistoplam") & "</td><td colspan='2' align='center'>" & mesaitop("Mesaitoplam") & "</td></tr><tr><td colspan='6'> </td></tr><tr><td colspan='3'><li>Maaş <b>" & formatCurrency(maaskac) & "</b><li> Saat Ücret <b>" & formatCurrency(saatucret) & "</b><li> Mesai Ücreti <b>" & formatCurrency(mesaiucret) & "</b></td><td colspan='3' align='center'><b>" & formatCurrency(toplam) & "</b></td></tr></table>" YazdirSirala.InnerHTML = strHTML End Sub </script> <script type="text/javascript" src="css/maske.js"></script> <body leftmargin="0" topmargin="0" onkeydown="yasakla();" onLoad="java script:workforchange('puantaj','changer','Puantaj EKLE +','Puantaj EKLE -');"> <table width="100%" border="0" cellpadding="2" cellspacing="0" id="exel" style="border-left-width: 0px"> <tr> <td height="65" align="center" bordercolor="#CCCCCC" bgcolor="#F4F4F4" class="titlebg">BELGROUP PERSONEL </td> <td width="45%" rowspan="4" align="left" valign="top" bordercolor="#CCCCCC" bgcolor="#F4F4F4"><span id="YazdirSirala"></span> </td> </tr> <tr> <td align="left" bordercolor="#CCCCCC" bgcolor="#F4F4F4"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td align="center"><span id="Mesaj"></span></td> </tr> </table></td> </tr> <tr> <td align="left" valign="top" bordercolor="#CCCCCC" bgcolor="#F4F4F4"><table width="100%" border="0" cellspacing="0" cellpadding="1"> <tr> <td width="16%" align="left" valign="middle" bordercolor="#CCCCCC" bgcolor="#F4F4F4" class="titlebg2">Adı Soyadı </td> <td width="1%" align="center" valign="middle" bordercolor="#CCCCCC" bgcolor="#F4F4F4" class="titlebg2">:</td> <td colspan="2" align="left" valign="middle" bordercolor="#CCCCCC" bgcolor="#F4F4F4" class="titlebg"><span id="AdsoyadListe"> <select name="Adsoyad" class="searchbox" id="Adsoyad"> </select> </span></td> </tr> <tr> <td align="left" valign="top" bordercolor="#CCCCCC" bgcolor="#F4F4F4" class="titlebg2">İşe Giriş Tarihi </td> <td align="center" valign="top" bordercolor="#CCCCCC" bgcolor="#F4F4F4" class="titlebg2">:</td> <td width="40%" align="left" valign="top" bordercolor="#CCCCCC" bgcolor="#F4F4F4" class="titlebg2"><input name="gt" type="text" class="searchbox" id="gt" onKeyDown="java script:return dFilter (event.keyCode, this, '##.##.####');" size='11' maxlength='11'></td> <td width="43%" align="left" valign="top" bordercolor="#CCCCCC" bgcolor="#F4F4F4" class="titlebg"> <span id="giristarih"></span></td> </tr> <tr> <td align="left" valign="top" bordercolor="#CCCCCC" bgcolor="#F4F4F4" class="titlebg2">İşten Çıkış Tarihi </td> <td align="center" valign="top" bordercolor="#CCCCCC" bgcolor="#F4F4F4" class="titlebg2">:</td> <td width="40%" align="left" valign="top" bordercolor="#CCCCCC" bgcolor="#F4F4F4" class="titlebg2"><input name="ct" type="text" class="searchbox" id="ct" onKeyDown="java script:return dFilter (event.keyCode, this, '##.##.####');" size='11' maxlength='11'></td> <td align="left" valign="top" bordercolor="#CCCCCC" bgcolor="#F4F4F4" class="titlebg"> <span id="cikistarih"></span></td> </tr> <tr> <td align="left" valign="top" bordercolor="#CCCCCC" bgcolor="#F4F4F4" class="titlebg2">Telefon</td> <td align="center" valign="top" bordercolor="#CCCCCC" bgcolor="#F4F4F4" class="titlebg2">:</td> <td align="left" valign="top" bordercolor="#CCCCCC" bgcolor="#F4F4F4" class="titlebg2"><input name="tlf" type="text" class="searchbox" id="tlf" onKeyDown="java script:return dFilter (event.keyCode, this, '0### ### ## ##');" size='15' maxlength='15'></td> <td align="left" valign="top" bordercolor="#CCCCCC" bgcolor="#F4F4F4" class="titlebg"> <span id="telefon"></span></td> </tr> <tr> <td align="left" valign="top" bordercolor="#CCCCCC" bgcolor="#F4F4F4" class="titlebg2">Adres</td> <td align="center" valign="top" bordercolor="#CCCCCC" bgcolor="#F4F4F4" class="titlebg2">:</td> <td align="left" valign="top" bordercolor="#CCCCCC" bgcolor="#F4F4F4" class="titlebg2"><textarea name="adr" cols="25" rows="4" class="searchbox" id="adr"></textarea></td> <td align="left" valign="top" bordercolor="#CCCCCC" bgcolor="#F4F4F4" class="titlebg"> <span id="adres"></span></td> </tr> <tr> <td align="left" valign="top" bordercolor="#CCCCCC" bgcolor="#F4F4F4" class="titlebg2">Meslek</td> <td align="center" valign="top" bordercolor="#CCCCCC" bgcolor="#F4F4F4" class="titlebg2">:</td> <td align="left" valign="top" bordercolor="#CCCCCC" bgcolor="#F4F4F4" class="titlebg2"><select name="meslk" class="searchbox" id="meslk"> <option value=""> </option> <option value="Muhendis">Muhendis</option> <option value="Formen">Formen</option> <option value="Ekipbasi">Ekipbasi</option> <option value="Usta">Usta</option> <option value="Kaynakci">Kaynakci</option> <option value="Montajci">Montajci</option> <option value="Yardimci">Yardimci</option> </select> </td> <td width="43%" align="left" valign="top" bordercolor="#CCCCCC" bgcolor="#F4F4F4" class="titlebg"> <span id="meslek"></span></td> </tr> <tr> <td align="left" valign="top" bordercolor="#CCCCCC" bgcolor="#F4F4F4" class="titlebg2">Maaş</td> <td align="center" valign="top" bordercolor="#CCCCCC" bgcolor="#F4F4F4" class="titlebg2">:</td> <td align="left" valign="top" bordercolor="#CCCCCC" bgcolor="#F4F4F4" class="titlebg2"><input name="ms" type="text" class="searchbox" id="ms" size="11" maxlength="5"></td> <td align="left" valign="top" bordercolor="#CCCCCC" bgcolor="#F4F4F4" class="titlebg"> <span id="maas"></span></td> </tr> <tr> <td colspan="2" align="left" valign="top" bordercolor="#CCCCCC" bgcolor="#F4F4F4" class="titlebg"> </td> <td align="left" valign="top" bordercolor="#CCCCCC" bgcolor="#F4F4F4" class="titlebg"><input name="kayit" type="submit" class="windowbg2" id="kayit" onClick="YeniKayit();location.reload();" value="Personel EKLE"> <input name="kaydetduzen" type="submit" class="windowbg2" id="kaydetduzen" onClick="duzenle();" value="Kaydet"></td> <td align="left" valign="top" bordercolor="#CCCCCC" bgcolor="#F4F4F4" class="titlebg"><input name="kayitaktar" type="submit" class="windowbg2" id="kayitaktar" onClick="aktar();" value="««"> <input name="id" type="hidden" class="windowbg2" id="id" size="11" maxlength="5"><input name="kayitsil" type="submit" class="windowbg2" id="kayitsil" onClick="sil();" value=" Sil "></td> </tr> <tr> <td colspan="4" align="left" valign="top" bordercolor="#CCCCCC" bgcolor="#F4F4F4" class="quote" onclick="java script:workforchange('puantaj','changer','Puantaj EKLE +','Puantaj EKLE -');" id='changer' >Puantaj EKLE </td> </tr> <tr> <td colspan="4" align="left" valign="top" bordercolor="#CCCCCC" bgcolor="#F4F4F4"><span id="puantaj"> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="25%" align="center" class="titlebg2">Çalışma Saati </td> <td width="4%" ><input name="calismasaat" type="text" class="windowbg2" id="calismasaat" size="4" maxlength="2"></td> <td width="11%" align="center" class="titlebg2">Mesai</td> <td width="4%" ><input name="mesaisaat" type="text" class="windowbg2" id="mesaisaat" size="4" maxlength="2"></td> <td width="14%" align="center" class="titlebg2" >Tarih</td> <td width="14%" ><input name="tarih" type="text" class="windowbg2" id="tarih" size="12" maxlength="10" onKeyDown="java script:return dFilter (event.keyCode, this, '##.##.####');" size='11' maxlength='11'></td> <td width="28%" ><input name="puantajekle" type="submit" class="titlebg2" id="puantajekle" onClick="puantajekle();" value="+"></td> </tr> </table> </span></td> </tr> <tr> <td colspan="4" align="left" valign="top" bordercolor="#CCCCCC" bgcolor="#F4F4F4"> </td> </tr> <tr> <td colspan="4" align="left" valign="top" bordercolor="#CCCCCC" bgcolor="#F4F4F4"> <input name="Göster" type="submit" class="titlebg2" onClick="yazdir()" value="Raporu Görüntüle"> <input name="Yazdir" type="submit" class="titlebg2" onClick="raporyazdir('YazdirSirala');" value="Yazdir"> <input name="Kapat" type="submit" class="titlebg" onClick="kapat();" value="Kapat"></td> </tr> </table></td> </tr> </table> </body> </html> Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted December 5, 2008 Administrator Share Posted December 5, 2008 SQL'de tarih sorgularken tarih formatı şöyle olmalı : #MM/DD/YY# M= ay D= Gün Y= Yıl Link to comment Share on other sites More sharing options...
cumman Posted December 5, 2008 Share Posted December 5, 2008 tarih BETWEEN ""30.11.2008"" AND ""05.12.2208"" 11/30/2008 12/05/2008 olarak degistirip dene ay gun yil olarak yazilir querylerde Link to comment Share on other sites More sharing options...
ilhanxxx Posted December 5, 2008 Author Share Posted December 5, 2008 SQL'de tarih sorgularken tarih formatı şöyle olmalı : #MM/DD/YY#M= ay D= Gün Y= Yıl Yok bu böyle olmayacak bana FOR NEXT Döngüsü için yardım edermisiniz ?? en ideali bu olacak heralde. gisilen gün sayısı ile gun=kacgun.value tarih = date() sontarih = date()-gun for next sorgusu yapabilirmisiniz? Link to comment Share on other sites More sharing options...
cumman Posted December 5, 2008 Share Posted December 5, 2008 <input type="text" name="StartDate" size="20" value="<%=dataStartDate%>" > <input type="text" name="StartDate2" size="20" value="<%=dataEndDate%>" > (dbo.tablo.tarih BETWEEN '" & dataStartDate & "' and '" & dataEndDate & "') olarak degistir. for next ile alakasi olmayan bir durum. Link to comment Share on other sites More sharing options...
ilhanxxx Posted December 5, 2008 Author Share Posted December 5, 2008 Sonuç ... Hiçbişe Listelemedi. Link to comment Share on other sites More sharing options...
ilhanxxx Posted December 5, 2008 Author Share Posted December 5, 2008 Böyle Listelemesi Lazım :s Ama Fiyasko.... En iyisi For Next Olacak Gibi Geliyor Bana Link to comment Share on other sites More sharing options...
ilhanxxx Posted December 12, 2008 Author Share Posted December 12, 2008 Sorun Çözüldü , Teşekürler denetim masası bölgesel ayarlardan tarihi AA/GG/YYYY YAPTIM . Çalışıyor. sql="Select * from puantaj where tarih BETWEEN #" & sontarih & "# AND #" & ilktarih & "# and adsoyad='" & kim & "' ORDER BY tarih ASC" Teşekkürler TNC Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.