asp den excel sorgulama sütün seklinde olmuyor mu

aliyaman · 12 Nisan 2016

arkadaşlar excelde sorgulama yapıyorum satır halde veriyor verileri alt alta alamazmıyız

<%@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>SINAV SONUÇLARI</title>
<style type="text/css">

</style></head>
<body><center>
<form id="form1" name="form1" method="post" action="excel.asp">
<label></label>
<p>

<table width="359" border="1" style="border-collapse:collapse "id="sorgu" cellpadding="1" cellspacing="1" bordercolor="#D2D2D2">
<tr>

<td width="248" align="center" bgcolor="#B3B8FF"><label><strong>TEL NO:</strong>
<input name="textalan" type="text" value="0" maxlength="10" />
</label></td>
<td width="69" align="center" bgcolor="#B3B8FF"><label>
<input name="Sorgula" type="submit" id="Sorgula" value="Sorgula" />
</label></td>
</tr>
</table>
<table id="table1" bordercolor="#800080" cellspacing="1" class="style2">
<tr>
<td width="10%" align="center" bgcolor="#CCD0FF"><b>ADI</b></td>
<td width="10%" align="center" bgcolor="#CCD0FF"><b>SOYADI</b></td>
<td width="5%" align="center" bgcolor="#CCD0FF"><b>TÜR. NET</b></td>
<td width="5%" align="center" bgcolor="#CCD0FF"><b>MAT. NET</b></td>
<td width="5%" align="center" bgcolor="#CCD0FF"><b>DIN. NET</b></td>
<td width="5%" align="center" bgcolor="#CCD0FF"><b>FEN. NET</b></td>
<td width="5%" align="center" bgcolor="#CCD0FF"><b>SOS. NET</b></td>
<td width="5%" align="center" bgcolor="#CCD0FF"><b>ING. NET</b></td>
<td width="8%" align="center" bgcolor="#CCD0FF"><b>TOPLAM NET</b></td>
<td width="7%" align="center" bgcolor="#CCD0FF"><b>PUAN</b></td>
<td width="2%" align="center" bgcolor="#CCD0FF"><b>SIRA</b></td>
<td width="29%" align="center" bgcolor="#CCD0FF"><b>AÇIKLAMA</b></td>
<td width="7%" align="center" bgcolor="#CCD0FF"><b>TC</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("TCNO")= sayi then
%>
<tr>
<td align="center"><%=kayitlarobje("ADI")%> </td>
<td align="center"><%=kayitlarobje("SOYADI")%> </td>
<td align="center"><%=kayitlarobje("TURKCE")%> </td>
<td align="center"><%=kayitlarobje("MAT")%> </td>
<td align="center"><%=kayitlarobje("DIN")%> </td>
<td align="center"><%=kayitlarobje("FEN")%> </td>
<td align="center"><%=kayitlarobje("SOS")%> </td>
<td align="center"><%=kayitlarobje("ING")%> </td>
<td align="center"><%=kayitlarobje("TOPLAM")%> </td>
<td align="center"><%=kayitlarobje("PUAN")%> </td>
<td align="center"><%=kayitlarobje("SIRA")%> </td>
<td align="center"><%=kayitlarobje("ACIKLAMA")%> </td>
<td align="center"><%=kayitlarobje("TCNO")%> </td>
</tr>
<%

end if
kayitlarobje.movenext
loop
kayitlarobje.close
Set kayitlarobje = nothing
baglantiobje.close
Set baglantiobje = nothing
end if
%>
</table>
</form>
</center>
<p></p>
<p></p>
<p></p>
<table align="center" class="auto-style1" style="width: 1209px">

</table>
</body>
</html>

aliyaman · 13 Nisan 2016

arkadaşlar açık söyleyeyim asp formatında yapılmış excelden sorgu yapan bir sistem tarayıcıda sorgulama yaptığımda verilern hepsi bir satırda gözüküyor, alt alta olmaz mı

alicimri · 13 Nisan 2016

TCNO'yu Where ile sorgulatırsanız, Recordset Tek kayıt döndüreceğinden, do while döngüsüne ve if testine gerek kalmaz. Tablonun kodlarını da aşağıdaki değiştirin

Kod:

<tr>
  <td width="10%" align="center" bgcolor="#CCD0FF"><b>ADI</b></td>
 <td align="center"><%=kayitlarobje("ADI")%> </td>
  </tr>
  <tr>
   <td width="10%" align="center" bgcolor="#CCD0FF"><b>SOYADI</b></td>
 <td align="center"><%=kayitlarobje("SOYADI")%> </td>
 </tr>
.......................

aliyaman · 14 Nisan 2016

hocam cevap için teşekkürler
yalnız söyle bir durum var ben asp bilmiyorum bunu hazır buldum üzerinde değişiklik yaptım sadece
bu açıklamalarınızı uygulama üzerinde bütün şekilde yapabilir misiniz size zahmet olmazsa

alicimri · 15 Nisan 2016

örnek dosyayı aşağıdaki link den indirebilirsin
http://s5.dosya.tc/server/h9mrzk/excel.zip.html

aliyaman · 15 Nisan 2016

teşekkürler hocam

aliyaman · 18 Nisan 2016

Ali hocam bir sorum daha olacak
Excel dosyasının içinde ikinci bir sayfa daha var Sayfa2 diye bu sayfada da aynı tc numarası var fakat farklı bilgiler var onlarıda bu sayfaya alabilir miyiz, yani aynı anda bir sorgu ile iki sayfadan bilgi alabilir miyiz

alicimri · 18 Nisan 2016

Sayfa2 deki sütun adları nedir. ASP sayfasında Sayfa1den gelen bilgilerin altına mı gelecek

aliyaman · 18 Nisan 2016

evet hocam
sayfa2 de ders kodlamaları var
TRKOD-MTKOD-DNKOD-TC

alicimri · 18 Nisan 2016

...................

alicimri · 19 Nisan 2016

Yeni dosya aşağı linkte
http://s5.dosya.tc/server/6a9ydp/excel1.zip.html
Etiket adlarını Siz değiştirin.

aliyaman · 19 Nisan 2016

yazınız çıkmamış heralde ali hocam

aliyaman · 19 Nisan 2016

tamam aldım hocam bakamadım daha
teşekkür ederim

aliyaman · 19 Nisan 2016

alicimri' Alıntı:
Yeni dosya aşağı linkte
http://s5.dosya.tc/server/6a9ydp/excel1.zip.html
Etiket adlarını Siz değiştirin.

hocam ben bunu çalıştıramadım bakabilir misiniz, dosyalar ekte

http://s5.dosya.tc/server/t4v9mz/YeniKOD.rar.html

alicimri · 19 Nisan 2016

Sayın aliyaman
Özel mesajla ayrıntılı sorular sordum yine özel mesajla yanıtlarsanız, Formu soru/cevapla boş yere işgal etmeyelim.

aliyaman · 19 Nisan 2016

alicimri' Alıntı:
Sayın aliyaman
Özel mesajla ayrıntılı sorular sordum yine özel mesajla yanıtlarsanız, Formu soru/cevapla boş yere işgal etmeyelim.

ok. cevapladım