asp ve excel veritabanı

Aşağı Git Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Asp / Asp.NET asp ve excel veritabanı

Bu konudaki kullanıcılar: 1 misafir

0
Cevap 506
Tıklama 0
Öne Çıkarma

1. sayfa

asp ve excel veritabanı

Cevap Yaz

turkyolu

10 yıl

Konu Sahibi

Merhaba arkadaşlar asp de hazır bir script buldum excel den verileri çekiyor benim yapmak istediğimse excelden çektiğim verileri asp sayfasında toplatıp ekrana yazdırmak bu konuda bana yardımcı olabilirseniz çok sevinirim

Açıklama : veritabanı olarak kullandığım excel de E sutununda rakamlar var o rakamları toplatarak ekrana yazdırmak istiyorum.

Şimdiden teşekkür ederim iyi çalışmalar.
script tek bir dosyadan oluşuyor ve kodlar aşağıdaki gibidir.

 
  <%@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>Agent Görüşme Detayları</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> 
  <script language="JavaScript" src="calculator.js"></script> 
  <body style="Background:url(back.png) no-repeat;">   
  <h4>Hesap Makinesi</h4> 
  <a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=104443042&url=javascript:show_calculator();" data-href="javascript:show_calculator();"><img src="calc.gif" border="0"></a> 
  <center> 
    <form id="form1" name="form1" method="post" action="index.asp"> 
      <label></label> 
      <p> </p> 
      <table width="359" border="1"  style="border-collapse:collapse "id="sorgu" cellpadding="1" cellspacing="1"  bordercolor="#D2D2D2"> 
        <tr> 
  <div class="logo"><img src="Logo.png" width="300" height="131" border="0" /> 
          <td width="248" align="center" bgcolor="#B3B8FF"><label><strong>Agent Sip No:</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="20%" align="left" bgcolor="#CCD0FF"><b>Arama Tarihi</b></td> 
          <td width="21%" align="left" bgcolor="#CCD0FF"><b>Arama Bilgisi</b></td> 
          <td width="18%" align="left" bgcolor="#CCD0FF"><b>Agent Sip No</b></td> 
          <td width="21%" align="left" bgcolor="#CCD0FF"><b>Aranan Numara</b></td> 
  		<td width="20%" align="left" bgcolor="#CCD0FF"><b>Arama Süresi</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("xlsveri.xls") & "; DRIVER={Microsoft Excel Driver (*.xls)};" 
  Set baglantiobje = Server.CreateObject("ADODB.Connection") 
  Set kayitlarobje = Server.CreateObject("ADODB.Recordset") 
  baglantiobje.open baglanti 
  sql="select * from [Sayfa1$]" 
   
  kayitlarobje.Open sql, baglantiobje, 1,3 
  '---------------------------------------------------------------------------------------------------- 
   
  do while not kayitlarobje.eof 
  if kayitlarobje("ADI")= sayi  then 
  %> 
        <tr> 
          <td align="left"><%=kayitlarobje("SOYADI")%> </td> 
  		<td align="left"><%=kayitlarobje("TCNO")%> </td> 
          <td align="left"><%=kayitlarobje("ADI")%> </td> 
          <td align="left"><%=kayitlarobje("BABAADI")%> </td> 
          <td align="left"><%=kayitlarobje("ADRES")%> </td> 
           
        </tr> 
        <%  
  	   
   end if 
  kayitlarobje.movenext 
  loop 
  kayitlarobje.close 
  Set kayitlarobje = nothing 
  baglantiobje.close 
  Set baglantiobje = nothing 
  end if 
  %> 
  Toplam Konusma Süresi : <%  
  response.write Toplam 
  %> (Sn) 
      </table> 
    </form> 
  </center> 
  </body> 
  </html>

Cevap Yaz

1. sayfa

Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Asp / Asp.NET asp ve excel veritabanı