| ercanfb Yeni Üye
 
  
 
 Kayıt Tarihi: 22-Kasım-2007
 Ülke: Turkiye
 Gönderilenler: 1
 
   | 
          Merhaba
           | Gönderen: 22-Kasım-2007 Saat 16:26 | Kayıtlı IP |   |  
           | 
 |  
 eskiden baska bir projemde kullanmis oldugum kodu simdiki projemde de kullanmak istedim fakat daha once access veritabanına baglanti yapiordum simdi ise sql servera baglaniyorum.
 
 aynı kodun sadece veritabanı baglanti satirini degistirdim fakat su hatayi aldim:
 
 Operation is not allowed when the object is open.
 hatanında gosterildigi satiri yeni kod kisminda belirttim.
 
 
 simdi bu eski calisan kodum accesse baglandigim kod:
 <%
 
 Option Explicit
 dim objRS, strSQL, arrRS,cobjRS, cstrSQL, carrRS
 
 'create recordSet object
 Set objRS = Server.CreateObject("ADODB.Recordset" )
 objRS.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("FirmaTakip.mdb" )
 
 'Construct SQL statement
 strSQL = "SELECT x.sehirid, x.sehir, y.ilceid, y.ilce FROM sehir AS x INNER JOIN ilceler AS y ON x.sehirid = y.sehirid ORDER BY x.sehir, y.ilce;"
 
 'execute SQL statement To return a recordSet
 objRS.Open strSQL
 
 'build an array from the recordSet using GetRows
 arrRS = objRS.Getrows
 
 'close the recordSet
 objRS.Close
 
 Set objRS = Nothing
 %>
 
 bu da yeni projemde kullanmak istedigim ve uzerinde degisiklik yaptigim kod:
 
 <%
 
 Option Explicit
 dim objRS, strSQL, arrRS,cobjRS, cstrSQL, carrRS,sss
 
 'create recordSet object
 Set objRS=Server.CreateObject("Adodb.Connection" )
 objRS.Open= "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=xxx;pwd=xxxx;Initial Catalog=xxxx;Data Source=xxxx;Auto Translate=False"
 
 'Construct SQL statement
 strSQL = "SELECT x.sirketid, x.SirketAdi, y.id, y.isim FROM [dbo].[ST$Sirketler] AS x INNER JOIN [dbo].[ST$Kullanicilar] AS y ON x.sirketid = y.Sirket ORDER BY x.SirketAdi, y.isim;"
 
 'execute SQL statement To return a recordSet
 objRS.Open strSQL // hata satiri
 
 'build an array from the recordSet using GetRows
 arrRS = objRS.Getrows
 
 'close the recordSet
 objRS.Close
 
 Set objRS = Nothing
 %>
 
 hatam nerededir nereyi degistirmem gerekir  yada ne eklemem gerekir bilgilendirirseniz cok memnun olurum
 
 tesekkuler!
 |