Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic makaleleri » IBM AS/400 ve ASP
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Tarihi yaz Burcunu öğren

Yazar: xxxmcs

Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 5822
Yayın Tar:26.01.2006
Yazar : DigitalMedya
Hit :4299

Bu Yazarın Yazıları Sadece bu yazarın  göster
Bu Yazıyı Tavsiye Et

AS/400 severinizdeki bilgileri internette yayınlamak istiyorsunuz ama mantığı hakkında bilginiz yok.
Aslında çok basit.
Yapmanız gereken yerel ağ üzerinde çalışan bir pc ye IIS kurarak bir kaç satır asp kodu ile bu iş tamamdır.
Ama daha önce mantıktan bahsedeyim.
Örneğin internet kullanıcısısınız.internet exploreri açıp adresimi yazıyoruz.Bu adres sistemi kuran kişinin yerel ağ üzerinde ıss kurulu pc ye yönlendirdiği adres.
Şimdi adresi yazdık enter'a bastık.
İlk önce iss kurulu pc'ye istek ulaştı.bu pc bizim isteğimiz değerlendirdi.bu değerlendirme olayı biraz sonra vereceğim asp code sayesinde olacak.
Asp kod sayesinde iss kurulu web server as/400 servera yönlendi.sorgulamasını yaptı.sonucu web servera yolladı.Web server da size aynı sonucu düzenleyerek internet explorerin üzrinde sizze gösterdi.Mantık kabaca bu.:))

Şimdi Asp kodu inceliyelim.

<%

dim sqlString


Set Con=Server.CreateObject("ADODB.Connection")
Con.open "PROVIDER=IBMDA400; DATA SOURCE=XXX.XXX.XXX.XXX;USER ID=Kullanıcı Adınız;PASSWORD=Şifreniz;DEFAULT COLLECTION=DB Adı;"
Set RS = Server.CreateObject("ADODB.Recordset")

sqlString = "select * from tablo where alanadı like '%aracanak ifade%'"


RS.ActiveConnection = Con
Rs.Open sqlString,Con,3,3
%>
Yukarıda,
DATA SOURCE=XXX.XXX.XXX.XXX ile belirtilen IBM AS/400 serverin yerel ağ veya wan da kullanılan ip adresi.
ID=Kullanıcı Adı , buarada isterseniz as/400 admin ile isterseniz user ile giriş yapabilirsiniz.Admin ile giriş yaparsanız tüm library ve dosyalar erişme imkanı bulursunuz.
PASSWORD=Şifreniz ,açıklamaya ihtiyaç varmı :PP
DEFAULT COLLECTION=DB Adı; evetttt geldik zurnanın zırt dediği yere :)))))))
Zaten as/400 ile haşır neşir olan birisi iseniz LIBRARY,FİLE,FİELD ne anlama geldiğini biliyorsunuz demektir.bilmiyenler için küçük bi tablo yapalım.
AS/400 ACCESS
---------- ---------
LIBRARY DATABASE
FİLE TABLO
FIELD ALAN

DEFAULT COLLECTION=DB Adı , derken siz buraya LIBRARY yani DATABASE adını yazmanız gerekiyor.


Problem yoksa buraya kadar şimdi asp kodun tamanını aşağıda veriyorum.
"***" lardan sonraki kodu bir textin içine kopyalayın ve gerekli değişikleri yapın.Daha sonra SAVE AS veya Faklı Kaydet deyin IIS kurulu pc de c:\inetpub\wwwroot içine DEFAULT.ASP olarak kaydedin.

'************************************

<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=">
<meta http-equiv="Content-Language" content="tr">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">

<TITLE>ASP - AS/400 Hüseyin ACAR :))) </TITLE>
<meta http-equiv="Content-Style-Type" content="text/css">
<link REL="stylesheet" href="/style.css" type="text/css">


<meta name="Microsoft Theme" content="blends 1011">


</HEAD>
<BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0>

<%

Set Con=Server.CreateObject("ADODB.Connection")
Con.open "PROVIDER=IBMDA400; DATA SOURCE=XXX.XXX.XXX.XXX;USER ID=Kullanıcı Adınız;PASSWORD=Şifreniz;DEFAULT COLLECTION=DB Adı;"
Set RS = Server.CreateObject("ADODB.Recordset")

sqlString = "select * from tabloadı where alanadı like '%aracanak ifade%'"


RS.ActiveConnection = Con
Rs.Open sqlString,Con,3,3

If Rs.Eof Then
%>
<tr>
<td colspan="5" valign="top"><center><br><br><b>Kayır Bulunamadı.</b></br></br></center></td>
</tr>
<%else%>
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="64%" height="20">
<font size="1">
<br>Bu sonucun üretilmesinde Kullanılan sorgu :<%=sqlString%></br>
<br></br>
</font>
<% rs.movefirst

do while not rs.eof
xx=xx+1
%>
<tr>
<td><font face="Arial" size="1"><b><%=xx%></b></font></td>
<td align="center"><font face="Arial" size="1"><b><%=rs("ALAN1")%></b></font></td>
<td align="center"><font face="Arial" size="1"><b><%=rs("ALAN2")%></b></font></td>
<td align="center"><font face="Arial" size="1"><b><%=rs("ALAN3")%></b></font></td>
<td align="center"><td><font face="Arial" size="1"><b><%=rs("ALAN4")%></b></font></td>
</tr>
<%
rs.movenext
loop
end if
%>
</table>Bulunan Kayıt sayısı :<font color="#FF0000"><%response.write ( xx )%></font>
</center>
</BODY>
</HTML>

'****************************






Bu sayfa için henüz yorum eklenmemiş.

© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin