Şimdi Ara

asp ve excel veritabanı

Sıcak Fırsatlarda Tıklananlar

Editörün Seçtiği Fırsatlar

Daha Fazla

Bu Konudaki Kullanıcılar: Daha Az

2 Misafir (1 Mobil) - 1 Masaüstü,

1 Mobil

5 sn

1
Cevap

0
Favori

491
Tıklama

Daha Fazla
İstatistik

Konu İstatistikleri Yükleniyor

Konuya Özel

0 oy

Öne Çıkar

Cevapla

Sayfa: 1

Giriş

Mesaj

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>