Şimdi Ara

excel'den veri alan asp dosyası

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
15
Cevap
0
Favori
2.218
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • Merhaba Arkadaşlar.
    Excel dosyasından veri alan bir asp sayfam var.bu sayfada sorgulama yapılıp bilgileri getiriyor.Ama ben ABONENO Olan sütumdan sorgulama yapabildiğim halde TCNO Sütunundan sorgulama yaptıramıyorum.Yardımlarınız bekliyorum.Teşekkürler.

    asp kodlarım

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%> 
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
    <html xmlns="http://www.w3.org/1999/xhtml">
    <head>
    <META http-equiv=Content-Type content=text/html; charset=iso-8859-9>
    <META http-equiv=content-type content=text/html;charset=windows-1254>
    <META http-equiv=content-type content=text/html;charset=x-mac-turkish>
    <title>XLS Sorgu -</title>
    <style type="text/css">
    <!--
    body,td,th {
    font-family: Tahoma, Verdana, Comic Sans MS, Arial;
    font-size: 12px;
    color: #666666;
    }
    body {
    background-color: #FFFFFF;
    }
    .style1 {
    color: #CC1A00;
    font-weight: bold;
    }
    -->
    </style></head>
    <body><center>
    <form id="form1" name="form1" method="post" action="excel.asp">
    <label></label>
    <p> </p>
    <table width="469" border="1" style="border-collapse:collapse "id="sorgu" cellpadding="1" cellspacing="1" bordercolor="#D2D2D2">
    <tr>
    <td width="468" align="center" bgcolor="#B3B8FF"><label><strong>Abone Numaranızı Giriniz:</i></strong>
    <input name="textalan" type="text" value="" maxlength="11" />
    </label></td>
    <td width="69" align="center" bgcolor="#B3B8FF"><label>
    <input name="Sorgula" type="submit" id="Sorgula" value="Sorgula" />
    </label></td>
    </tr>
    </table>
    <table border="1" width="91%" id="table1" bordercolor="#D2D2D2" cellspacing="1" cellpadding="1" style="border-collapse: collapse">
    <tr>
    <td width="10%" align="left" bgcolor="#CCD0FF"><b>ABONE NO:</b></td>
    <td width="25%" align="left" bgcolor="#CCD0FF"><b>ADI/SOYADI-TCNO:</b></td>
    <td width="20%" align="left" bgcolor="#CCD0FF"><b>TAHAKKUK TİPİ:</b></td>
    <td width="21%" align="left" bgcolor="#CCD0FF"><b>TAHAKKUK TARİHİ:</b></td>
    <td width="21%" align="left" bgcolor="#CCD0FF"><b>SON ÖDEME TARİHİ:</b></td>
    <td width="60%" align="left" bgcolor="#CCD0FF"><b>TUTAR</b></td>
    <td width="10%" align="left" bgcolor="#CCD0FF"><b>TC NO:</b></td>
    </tr>

    <%
    dim sayi
    sayi= CDbl(request.form("textalan"))
    response.write("<br /><b>Sorgulanan Abone Numarası: </b><span class=""style1"">"& sayi &"</span><br /><br />")
    if sayi<>"" then
    '--------------------------------------------------------------------------------------------------
    baglanti = "DBQ=" & Server.MapPath("3333.xls") & "; DRIVER={Microsoft Excel Driver (*.xls)};"
    Set baglantiobje = Server.CreateObject("ADODB.Connection")
    Set kayitlarobje = Server.CreateObject("ADODB.Recordset")
    baglantiobje.open baglanti
    sql="select * from [Sayfa3$]"
    kayitlarobje.Open sql, baglantiobje, 1,3
    '----------------------------------------------------------------------------------------------------

    do while not kayitlarobje.eof
    if kayitlarobje("TCNO")= sayi then
    %>
    <tr>
    <td align="left"><%=kayitlarobje("ABONENO")%> </td>
    <td align="left"><%=kayitlarobje("SCL")%> </td>
    <td align="left"><%=kayitlarobje("TAHAKKUKTP")%> </td>
    <td align="left"><%=kayitlarobje("TAHAKKUKTR")%> </td>
    <td align="left"><%=kayitlarobje("SONODEMET")%> </td>
    <td align="left"><b><font color=red><%=kayitlarobje("TUTAR")%><B> TL</font></B></td>
    <td align="left"><%=kayitlarobje("TCNO")%> </td>
    </tr>
    <%

    end if
    kayitlarobje.movenext
    loop
    kayitlarobje.close
    Set kayitlarobje = nothing
    baglantiobje.close
    Set baglantiobje = nothing
    end if
    %>
    </table>
    </form>
    </center>
    </body>
    </html>



    < Bu mesaj bu kişi tarafından değiştirildi mkalkan -- 11 Mart 2011; 14:07:43 >







  • sorunu çözdüm arkadaşlar.sorun bu kodlarda değilmiş.excel sorgulanacak alanı sayı olarak görmediği için olmuyormuş.Bu kodlarla ilgili başka bir sorum var.excelden alıp asp web sayfasına virgüllü sayıları atarken virgül koyuyor,ama tamsayıları atarken virgül kullanmıyor.örnek verecek olursam

    11,25 sayısını tam olarak 11,25 yazıyor.
    30,00 sayısını 30 yazıyor(virgülden sonraki sıfırlar olsun istiyorum.
    11,30 sayısını 11,3 yazıyor.

    Teşekkür ediyor hepinize kolaylıklar diliyorum.
  • asp'de numberformat ile ilgili aşağıdaki linke bakabilirsiniz. Belki işinizi görür.
    http://www.virtualsplat.com/tips/asp-function-format-number.asp
  • quote:

    Orijinalden alıntı: gergozen

    asp'de numberformat ile ilgili aşağıdaki linke bakabilirsiniz. Belki işinizi görür.
    http://www.virtualsplat.com/tips/asp-function-format-number.asp

    evet istediğim şey böyle bir şey fakat kodu nereye yazacağımı bilmiyorum.Yardımcı olurmusunuz?
  • <% =FormatNumber( kayitlarobje("TAHAKKUKTR") , 4) %>

    bu şekilde çalışmalı ama asp görmeyeli 5-6 sene oldu. önce değişken sonra formatlama için gerekli değerleri giriyorsun.
  • yapamadım maalesef
  • <% sayi = kayitlarobje("TAHAKKUKTR") %>
    <% =formatNumber(sayi,2) %>

    isterseniz bir de değişkene atayıp deneyin
  • Yapay Zeka’dan İlgili Konular
    php database veri eklemede hata
    geçen yıl açıldı
    Daha Fazla Göster
  • çok teşekkürler gergozen kardeş.zahmet verdik.Kodları şu şekide düzenleyince oldu.Kodları vereyimde başka arkadaşlarında ihityacı olabilir belki

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%> 
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
    <html xmlns="http://www.w3.org/1999/xhtml">
    <head>
    <META http-equiv=Content-Type content=text/html; charset=iso-8859-9>
    <META http-equiv=content-type content=text/html;charset=windows-1254>
    <META http-equiv=content-type content=text/html;charset=x-mac-turkish>
    <title>XLS Sorgu - </title>
    <style type="text/css">
    <!--
    body,td,th {
    font-family: Tahoma, Verdana, Comic Sans MS, Arial;
    font-size: 12px;
    color: #666666;
    }
    body {
    background-color: #FFFFFF;
    }
    .style1 {
    color: #CC1A00;
    font-weight: bold;
    }
    -->
    </style></head>
    <body><center>
    <form id="form1" name="form1" method="post" action="excel.asp">
    <label></label>
    <p> </p>
    <table width="469" border="1" style="border-collapse:collapse "id="sorgu" cellpadding="1" cellspacing="1" bordercolor="#D2D2D2">
    <tr>
    <td width="468" align="center" bgcolor="#B3B8FF"><label><strong>Abone Numaranızı Giriniz:</i></strong>
    <input name="textalan" type="text" value="0" maxlength="11" />
    </label></td>
    <td width="69" align="center" bgcolor="#B3B8FF"><label>
    <input name="Sorgula" type="submit" id="Sorgula" value="Sorgula" />
    </label></td>
    </tr>
    </table>
    <table border="1" width="91%" id="table1" bordercolor="#D2D2D2" cellspacing="1" cellpadding="1" style="border-collapse: collapse">
    <tr>
    <td width="10%" align="left" bgcolor="#CCD0FF"><b>ABONE NO:</b></td>
    <td width="25%" align="left" bgcolor="#CCD0FF"><b>ADI/SOYADI-TCNO:</b></td>
    <td width="20%" align="left" bgcolor="#CCD0FF"><b>TAHAKKUK TİPİ:</b></td>
    <td width="21%" align="left" bgcolor="#CCD0FF"><b>TAHAKKUK TARİHİ:</b></td>
    <td width="21%" align="left" bgcolor="#CCD0FF"><b>SON ÖDEME TARİHİ:</b></td>
    <td width="60%" align="left" bgcolor="#CCD0FF"><b>TUTAR</b></td>
    </tr>

    <%
    dim sayi
    sayi= CDbl(request.form("textalan"))
    response.write("<br /><b>Sorgulanan: </b><span class=""style1"">"& sayi &"</span><br /><br />")
    if sayi<>"" then
    '--------------------------------------------------------------------------------------------------
    baglanti = "DBQ=" & Server.MapPath("3333.xls") & "; DRIVER={Microsoft Excel Driver (*.xls)};"
    Set baglantiobje = Server.CreateObject("ADODB.Connection")
    Set kayitlarobje = Server.CreateObject("ADODB.Recordset")
    baglantiobje.open baglanti
    sql="select * from [Sayfa3$]"
    kayitlarobje.Open sql, baglantiobje, 1,3
    '----------------------------------------------------------------------------------------------------

    do while not kayitlarobje.eof
    if kayitlarobje("TCNO")= sayi then

    %>


    <tr>
    <td align="left"><%=kayitlarobje("ABONENO")%> </td>
    <td align="left"><%=kayitlarobje("SCL")%> </td>
    <td align="left"><%=kayitlarobje("TAHAKKUKTP")%> </td>
    <td align="left"><%=kayitlarobje("TAHAKKUKTR")%> </td>
    <td align="left"><%=kayitlarobje("SONODEMET")%> </td>
    <td align="right"><b><font color=red><% =formatNumber(TUTAR,2) %><% TUTAR=kayitlarobje("TUTAR")%><B> TL</font></B></td>
    </tr>
    <%

    end if
    kayitlarobje.movenext
    loop
    kayitlarobje.close
    Set kayitlarobje = nothing
    baglantiobje.close
    Set baglantiobje = nothing
    end if
    %>
    </table>
    </form>
    </center>
    </body>
    </html>




  • Oldu sanmıştım ama bulduğu çoklu kayıtlarda sorun yok.ama tek kayıt çıkarsa sıfır yazıyor
  • <% =formatNumber(TUTAR,2) %> yerine <% =formatNumber(kayitlarobje("TUTAR"),2) %> yazınca olmuyor mu ?
  • quote:

    Orijinalden alıntı: gergozen

    <% =formatNumber(TUTAR,2) %> yerine <% =formatNumber(kayitlarobje("TUTAR"),2) %> yazınca olmuyor mu ?




    Tamam şimdi oldu kardeş.saolasın.Kolay gelsin
  • quote:

    Orijinalden alıntı: mkalkan


    quote:

    Orijinalden alıntı: gergozen

    <% =formatNumber(TUTAR,2) %> yerine <% =formatNumber(kayitlarobje("TUTAR"),2) %> yazınca olmuyor mu ?




    Tamam şimdi oldu kardeş.saolasın.Kolay gelsin

    siz de sağolun...

    <% =formatNumber(TUTAR,2) %><% TUTAR=kayitlarobje("TUTAR")%> aslında bu da olmalıydı ama önce değişkene değer atayıp sonra yazdırmanız gerekiyor(önce yazdırıp sonra değer atamışsınız). TUTAR'a daha değer atanmadığından sıfır veriyordur....

    <% TUTAR=kayitlarobje("TUTAR")%> <% =formatNumber(TUTAR,2) %>

    Tabi bu yazım (bence) daha anlaşılır. <% =formatNumber(kayitlarobje("TUTAR"),2) %>



    < Bu mesaj bu kişi tarafından değiştirildi gergozen -- 14 Mart 2011; 14:50:32 >




  • arkadaşlar bu sorgulama formu sütun sekilde yapılamıyormu, bir satır şeklinde değilde alt alta olmasını istiyorum
    yardımlarınızı bekliyorum
  • arkadaşlar bu sorgulamayı satır şeklinde değilde sorguladığımızda alt alta sütun halde olabilir mi

    < Bu ileti mobil sürüm kullanılarak atıldı >
  • arkadaşlar farklı bir sorum olacak
    excel dosyasında iki farklı sayfa var her ikisinde aynı tc nolar var farklı bilgiler var tek sorgulama ile her iki sayfadan bilgi alabilir miyiz

    < Bu ileti mobil sürüm kullanılarak atıldı >
  • 
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.