0
Kayıt Ol

mysql iki farklı tablodan veri çekip listelemek.

14

●

1.627

  • 06-03-2016, 14:12:43
    #1
    salsa77
    salsa77
    merhaba arkadaşlar hala çözemedim olayı.

    şimdi en baştan alnatayım..


    contact_trans isimli bir tabloya bağlanıp veri listeliyorum buraya kadar herşey normal. listelediğim veriler son işlemlere ait ama müşterilerimin isimleri yok çünki isimler contact isimli bir diğer tabloda yer alıyor.

    çalıştığım kodu vereyim bu kod çalışmakta.. müşteir adı hariç.

    <%
Set iletcen = server.CreateObject("ADODB.Recordset")
mbag="select * from contact_trans order by id desc limit 10;"
iletcen.Open mbag, bag,1,3
If not iletcen.eof then
while not iletcen.eof
%>


    bu koda inner join ile diğer tabloya bağlanmak için ilaveler yapıyorum.

    şu şekilde SELECT contact.name, contact_trans.contact_id FROM contact INNER JOIN contact_trans ON contact.name = contact_trans.contact_id order by id desc limit 10

    kod bu 
    <%
Set iletcen = server.CreateObject("ADODB.Recordset")
mbag="SELECT contact.name, contact_trans.contact_id FROM contact INNER JOIN contact_trans ON contact.name = contact_trans.contact_id order by id desc limit 10;"
iletcen.Open mbag, bag,1,3
If not iletcen.eof then
while not iletcen.eof
%>

    ama çalışmıyor hata veriyor.

    verdiği hata şu şekilde...
    Microsoft OLE DB Provider for ODBC Drivers hata '80040e21'

ODBC Sürücüsü istenen özellikleri desteklemiyor.

?, satır 0

    ne yaptıysam olmadı birtürlü düzeltemedim.


    Yapılan son işlemler:
    Tarih: Müşteri Adı: İşlem Tutarı: işlem: Açıklama:



    mavi olanlar contact_trans isimli tabloya ait veriler.

    kırmızı olan ise contact isimli tabloya ait veriler olacak...


    şimdiden herkese teşekkür ederim... kolay gelsin.
  • 06-03-2016, 14:32:49
    #2
    Misafir
    Misafir 
    SELECT
    s.tarih,
    m.isim,
    s.siparis,
    s.aciklama
FROM siparisler s
LEFT JOIN musteriler m ON m.musteri_id = s.id
ORDER BY s.id DESC
LIMIT 10
    Bu sorgu sana son 10 siparişi istediğin formatta verecektir.
  • 06-03-2016, 14:47:53
    #3
    salsa77
    salsa77
    aradaki s nedir?
  • 06-03-2016, 17:07:44
    #4
    pg13
    pg13
    Kimlik doğrulama veya yönetimden onay bekliyor.
    salsa77 adlı üyeden alıntı: mesajı görüntüle
    aradaki s nedir?
    tablo adının kısaltılmışı. istersen onu kullanmazsın, o zaman da select s.x yerine siparis.x yazman gerekir.
  • 06-03-2016, 20:29:10
    #5
    salsa77
    salsa77 
    <%

Set iletcen = server.CreateObject("ADODB.Recordset")
mbag="select * from contact_trans order by id desc limit 20;"

iletcen.Open mbag, bag,1,3
If not iletcen.eof then
while not iletcen.eof

%>
    kullandığım kod bu aslında üstünde düzenleme yapsan daha iyi olcak.

    contact_trans tablosu içinden listeliyorum müşteri isimleri contact tablosunda

    tablodaki adı name
  • 06-03-2016, 21:45:31
    #6
    Lazanya
    Lazanya
    salsa77 adlı üyeden alıntı: mesajı görüntüle 
    <%

Set iletcen = server.CreateObject("ADODB.Recordset")
mbag="select * from contact_trans order by id desc limit 20;"

iletcen.Open mbag, bag,1,3
If not iletcen.eof then
while not iletcen.eof

%>
    kullandığım kod bu aslında üstünde düzenleme yapsan daha iyi olcak.

    contact_trans tablosu içinden listeliyorum müşteri isimleri contact tablosunda

    tablodaki adı name

    SORGU KODU :
    'SQL sorgu Stringi:

SELECT contact.*,contact_trans.* FROM contact INNER JOIN contact_trans ON (contact.musteri_id = contact_trans.musteri_id) ORDER BY contact_trans.id DESC LIMIT 20;

'çalışması lazım
  • 08-03-2016, 21:08:17
    #7
    salsa77
    salsa77
    mbag="SELECT contact.*,contact_trans.* FROM contact INNER JOIN contact_trans ON (contact.contact_id = contact_trans.contact_id) ORDER BY contact_trans.id DESC LIMIT 20;"


    bu şekilde derledim. musteri_id değil contact_id o derğerin adı

    ama hata verdi.


    Microsoft OLE DB Provider for ODBC Drivers hata '80040e21'

    ODBC Sürücüsü istenen özellikleri desteklemiyor.

    ?, satır 0
  • 10-03-2016, 23:14:16
    #8
    yahyaaydin
    yahyaaydin 
    <% 
Set iletcen = server.CreateObject("ADODB.Recordset") 
mbag="select top 20 * from Siparişler Tablosu  order by id desc" 
iletcen.Open mbag, bag,1,3 
while not iletcen.eof 
Set iletcen2 = server.CreateObject("ADODB.Recordset") 
mbag="select * from Müşteriler tablosu where musteri_id="& iletcen("musteri_id") &"" 
iletcen2.Open mbag, bag,1,3 
%> 

<%=iletcen("tarih")%>   'sipariş tablosundakileri çekmek için

<%=iletcen2("musteriadi")%>   'müşteriler tablosundakileri çekmek için



<%
iletcen.movenext 
loop 
%>


    Son 20 kayıt için top 20 kullandım bu access için, mysql için limit 20 kullanırsın.
  • 11-03-2016, 23:00:40
    #9
    salsa77
    salsa77
    yahyaaydin adlı üyeden alıntı: mesajı görüntüle 
    <% 
Set iletcen = server.CreateObject("ADODB.Recordset") 
mbag="select top 20 * from Siparişler Tablosu  order by id desc" 
iletcen.Open mbag, bag,1,3 
while not iletcen.eof 
Set iletcen2 = server.CreateObject("ADODB.Recordset") 
mbag="select * from Müşteriler tablosu where musteri_id="& iletcen("musteri_id") &"" 
iletcen2.Open mbag, bag,1,3 
%> 

<%=iletcen("tarih")%>   'sipariş tablosundakileri çekmek için

<%=iletcen2("musteriadi")%>   'müşteriler tablosundakileri çekmek için



<%
iletcen.movenext 
loop 
%>


    Son 20 kayıt için top 20 kullandım bu access için, mysql için limit 20 kullanırsın.


    Merhaba yahya bey sizin dediğiniz gibide denedim sonuç aynı..

    Microsoft OLE DB Provider for ODBC Drivers hata '80040e21'

    ODBC Sürücüsü istenen özellikleri desteklemiyor.

    ?, satır 0

    Tarih Müşteri Adı İşlem Tutarı İşlem Açıklama Yönetici




    <%@ LANGUAGE = VBScript.Encode %>
<!--#include file="ctrl.asp" -->
<style>
A {
  color: #444444;
  text-decoration: none;
}

A:hover {
  color: #444444;
  text-decoration: none;
}
</style>
<%
if admin("id") = 1 Then 
Else
Response.Redirect "izin_yok.asp"
End If
%>


<%'############## İÇERİK BASLANGICI ############################# %>
	<img src="images/spacer10.png" />

<table border="0" width="720" cellspacing="10" cellpadding="3">
  <tr>
    <td width="100%" colspan="6" bgcolor="#51A8FF" height="22"><font color="#FFFFFF"
    face="Arial" size="2">&nbsp;&nbsp;Muhasebe Programı - Müşteriler.</font></td>
  </tr>
<tr>
<td width="65" height="26" bgcolor="#FFFFFF" style="border: 1px dotted rgb(81,168,255)" align="center"><font color="red" face="Arial" size="1">&nbsp;<b>Tarih</b></font></td>
<td width="190" height="26" bgcolor="#FFFFFF" style="border: 1px dotted rgb(81,168,255)"><font color="red" face="Arial" size="1">&nbsp;<b>Müşteri Adı</b></font></td>
<td width="80" height="26" bgcolor="#FFFFFF" style="border: 1px dotted rgb(81,168,255)" align="center"><font color="red" face="Arial" size="1">&nbsp;<b>İşlem Tutarı</b></font></td>
<td width="90" height="26" bgcolor="#FFFFFF" style="border: 1px dotted rgb(81,168,255)" align="center"><font color="red" face="Arial" size="1">&nbsp;<b>İşlem</b></font></td>
<td width="224" height="26" bgcolor="#FFFFFF" style="border: 1px dotted rgb(81,168,255)"><font color="red" face="Arial" size="1">&nbsp;<b>Açıklama</b></font></td>
<td width="71" height="26" bgcolor="#FFFFFF" style="border: 1px dotted rgb(81,168,255)" align="center"><font color="red" face="Arial" size="1">&nbsp;<b>Yönetici</b></font></td>
</tr>

<% 
Set iletcen = server.CreateObject("ADODB.Recordset") 
mbag="select top 20 * from contact_trans order by id desc limit 20;" 
iletcen.Open mbag, bag,1,3 
If not iletcen.eof then
while not iletcen.eof 
Set iletcen2 = server.CreateObject("ADODB.Recordset") 
mbag="select * from contact where contact_id="& iletcen("contact_id") &"" 
iletcen2.Open mbag, bag,1,3 

%>

<tr>
<td width="65" height="26" bgcolor="#FFFFFF" style="border: 1px dotted rgb(81,168,255)" align="center"><font color="#000000" face="Arial" size="1">&nbsp;<%=iletcen("insert_at")%></font></td>
<td width="190" height="26" bgcolor="#FFFFFF" style="border: 1px dotted rgb(81,168,255)"><font color="#000000" face="Arial" size="1">&nbsp;<%=iletcen2("name")%></font></td>
<td width="80" height="26" bgcolor="#FFFFFF" style="border: 1px dotted rgb(81,168,255)" align="center"><font color="#000000" face="Arial" size="1">&nbsp;<%=iletcen("amount")%>&nbsp;TL</font></td>
<td width="90" height="26" bgcolor="#FFFFFF" style="border: 1px dotted rgb(81,168,255)" align="center"><font color="#000000" face="Arial" size="1">&nbsp;
<%
if iletcen("_right") = "CARI_BORC_DEKONTU" Then
response.write "Satış"
elseif iletcen("_right") = "CARI_ALACAK_DEKONTU" Then 
response.write "Tahsilat"
else
response.write "Cari Açılış"
End If

%>
</font></td>

<td width="224" height="26" bgcolor="#FFFFFF" style="border: 1px dotted rgb(81,168,255)"><font color="#000000" face="Arial" size="1">&nbsp;<%=iletcen("description")%></font></td>

<td width="11" height="26" bgcolor="#FFFFFF" style="border: 1px dotted rgb(81,168,255)" align="center"><font color="#000000" face="Arial" size="1">&nbsp;<%=iletcen("insert_by")%></font></td>

</tr>
<%
iletcen.movenext

Wend

Else

response.write "Kayıt Bulunamadı"

End If
iletcen.close
%>


</table>
<%'############## İÇERİK BASLANGICI ############################# %>


    --R10.NET; Flood Engellendi -->-> Yeni yazılan mesaj 23:00:40 -->-> Daha önceki mesaj 22:51:25 --

    kafa takıldı bir kere daha çözemiyorum