aspnette haber modülüne yazı eklerken ' karakteri kullanımda hata

NorthWales · 24/04/2008, 18:06

arkadaşlar, bir textbox koydum onu sql komutlarıyla accessteki bir tabloma ekliyorum ancak ' işareti konulduğu takdirde hata veriyor ve veritabanına veri yazılamıyor bunu nasıl giderebilirim?

kodum aşağıdaki gibidir

PHP Kodu:

  <Script Runat="Server">
sub page_load
if session("seviye")<"5" then response.redirect ("../default.aspx")
end sub
Sub Button_Click( s As Object, e As EventArgs )

dim a
a=ConfigurationSettings.AppSettings( "weri_tabanı" )

Dim bagıntı1  As OleDbConnection
bagıntı1 = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath( "../" & a ) & "")

Dim sql1 As String
Dim komut2 As OleDbCommand

sql1 = "Insert Into haber ( haber_başlığı, haber, tarih, yollayanın_takma_adi ) Values ( '" & Başlık.text & "','" & mesaj.text & "','" & now() & "','" & alıcı.text & "')"
komut2 = New OleDbCommand( sql1, bagıntı1 )
bagıntı1.Open()
komut2.ExecuteNonQuery()
bagıntı1.Close()
ask.visible=false
label1.text="<center><font color=#008800> Haber&nbsp; &nbsp;" & alıcı.text & "&nbsp; &nbsp;Adına Eklenmiştir.." 


end sub

</Script>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<HTML xmlns="http://www.w3.org/1999/xhtml">
<HEAD>
    <TITLE>Untitled Document</TITLE>    <META http-equiv=Content-Type content="text/html; charset=windows-1254">
<proje:ust
  Runat="Server" />
       
<proje:menü
  Runat="Server" />
       </TD>
          <TD vAlign=top width=600>
          
            <TABLE cellSpacing=1 cellPadding=1 width="100%" bgColor=#83b5f4 border=0>
              <TBODY>
              <TR>
                <TD><IMG height=17 src="resimler/Untitled-1f.jpg" width=17>&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Mesaj    Gönder (Üyeye)    </TD>
          </TR>
              <TR>

                <TD>
<asp:label id="label1" runat="server" />
<form id="ask" runat="server">
                <table border="0" cellpadding="0" cellspacing="0" width="75%">
                <tr>
                <td><IMG height=9 src="resimler/Untitled-2.jpg" width=9>Yollayanın Adı: </td>
                <td><asp:TextBox ID="alıcı" class="forrm" runat="server" />                
                  </td>
                <td><asp:RequiredFieldValidator  ControlToValidate="alıcı"  Text="Bir Alicının kullanıcı Adını Yazınız!"  Runat="Server" />    </td>
                </tr>
                                <tr>
                <td><IMG height=9 src="resimler/Untitled-2.jpg" width=9>Haberin Başlığı </td>
                <td><asp:TextBox ID="başlık" class="forrm" runat="server" />                
                  </td>
                <td><asp:RequiredFieldValidator  ControlToValidate="Başlık"  Text="Mesajınıza Bir Başlık Belirtiniz!"  Runat="Server" />    </td>
                </tr>
                                <tr>
                <td><IMG height=9 src="resimler/Untitled-2.jpg" width=9>haber</td>
                <td><asp:TextBox ID="mesaj" class="forrm" runat="server" TextMode="MultiLine" Columns="19" Rows="10" />                
                  </td>
                
                </tr>
 <tr>
            <td><img height=9 src="resimler/Untitled-2.jpg" width=9>Onay </td>
            <td><asp:Button  Text="Onayla"  OnClick="Button_Click"  runat="server" BorderStyle="notset"/>              </td>
            <td>            </td>
             </tr>
                </table>
                </form>
                
                
                
                </TD>
          </TR>
              <TR>
                <TD>&nbsp;
        </TD>
          </TR>
          </TBODY>
         </TABLE>
      
     
<proje:alt
  Runat="Server" />

onun dışında sistemde hiçbir sorun yok

UuuR · 24/04/2008, 21:44

OleDbParameter kullanarak insert işlemini yaparsan,sorun çözülür
(Geçici çözüm istiyorsan Başlık.text.replace("'","‘") şeklinde kullanırsan,çalışır )

NorthWales · 24/04/2008, 21:54

öncelikle cevabınız için teşekkür ederim fakat mesaj.text.replace("'","‘") yapmama rağmen hata devam etti, size zahmet olmazsa yukardaki kodun düzenlenmişini yazar mısınız? şimdiden çok teşekkür ederim.

UuuR · 24/04/2008, 22:10

sql1 = "Insert Into haber ( haber_başlığı, haber, tarih, yollayanın_takma_adi ) Values ( '" & Başlık.text.replace("'","‘") & "','" & mesaj.text.replace("'","‘") & "','" & now() & "','" & alıcı.text.replace("'","‘") & "')"

bu şekilde denediğinde mi hata verdi?

NorthWales · 24/04/2008, 22:28

kardeş çok teşekkür ederim, peki şu oledbparameter'in kullanımını benim koda endekslenmiş olarak yazabilir misin? günlerdir kafa patlatıyorum sayende büyük bir sorunu gidermiş olucam

UuuR · 24/04/2008, 22:45

işlem için command nesnesi
Dim comm As New System.Data.OleDb.OleDbCommand
"command nesnesine bağlantıyı bildir
comm.Connection = conn

"command nesnesinin komut türünü ata
comm.CommandType = CommandType.Text

"parametreler ile çalışmak zor gibi görünsede aslında
"modülerlik ve güvenlik gibi açılardan avantajlıdır.
"kayıt işlemi için parametreleri oluştur.
Dim prm(2) As System.Data.OleDb.OleDbParameter
prm(0) = New System.Data.OleDb.OleDbParameter("@AdSoyad", TextBox1.Text)
prm(1) = New System.Data.OleDb.OleDbParameter("@Yas", Convert.ToInt32(TextBox2.Text))
prm(2) = New System.Data.OleDb.OleDbParameter("@KayitTarihi", Convert.ToDateTime(TextBox3.Text))

'parametreleri command nesnesine ver
comm.Parameters.AddRange(prm)

"insert stringi parametleri kullanarak oluştur
comm.CommandText = "INSERT INTO Tablo1 (AdSoyad,Yas,KayitTarihi) VALUES(@AdSoyad,@Yas,@KayitTarihi)"

"connectionu aç
comm.Connection.Open()

"kayıt işlemini gerçekleştir.
Dim ret As Integer
"işlemden sonra geriye kaç kayıt satırı işlendiği döner
ret = comm.ExecuteNonQuery()

MessageBox.Show(ret.ToString() + " kayıt yapıldı...")

"connection u kapat
comm.Connection.Close()
comm.Dispose()
conn.Dispose()
işlem için command nesnesi
Dim comm As New System.Data.OleDb.OleDbCommand
"command nesnesine bağlantıyı bildir
comm.Connection = conn

"command nesnesinin komut türünü ata
comm.CommandType = CommandType.Text

"parametreler ile çalışmak zor gibi görünsede aslında
"modülerlik ve güvenlik gibi açılardan avantajlıdır.
"kayıt işlemi için parametreleri oluştur.
Dim prm(2) As System.Data.OleDb.OleDbParameter
prm(0) = New System.Data.OleDb.OleDbParameter("@AdSoyad", TextBox1.Text)
prm(1) = New System.Data.OleDb.OleDbParameter("@Yas", Convert.ToInt32(TextBox2.Text))
prm(2) = New System.Data.OleDb.OleDbParameter("@KayitTarihi", Convert.ToDateTime(TextBox3.Text))

'parametreleri command nesnesine ver
comm.Parameters.AddRange(prm)

"insert stringi parametleri kullanarak oluştur
comm.CommandText = "INSERT INTO Tablo1 (AdSoyad,Yas,KayitTarihi) VALUES(@AdSoyad,@Yas,@KayitTarihi)"

"connectionu aç
comm.Connection.Open()

"kayıt işlemini gerçekleştir.
Dim ret As Integer
"işlemden sonra geriye kaç kayıt satırı işlendiği döner
ret = comm.ExecuteNonQuery()

MessageBox.Show(ret.ToString() + " kayıt yapıldı...")

"connection u kapat
comm.Connection.Close()
comm.Dispose()
conn.Dispose()

(Kaynak: http://www.programlama.com/sys/c2htm...hp3?DocID=6623 )

NorthWales · 24/04/2008, 22:47

teşekkür ederim

NorthWales · 24/04/2008, 23:25

son bir soru, yazarken farklı bir karaktere replace edebiliyorduk, peki okurken farklı karakteri orijinaline nasıl replace edebiliriz

kod aşağıdaki gibidir

PHP Kodu:

  While oku.Read()
başlık.text=oku("haber_başlığı")
tarih.text=oku("tarih")
        mesaj.Text = oku("haber")
gönderen.text=oku("yollayanın_takma_adi")
sayaç.text=oku("sayaç")
End While

teşekkürler.

UuuR · 24/04/2008, 23:43

yine aynı şekilde.,replace(a,b) yerine replace(b,a) yapıcaksın bu sefer..

NorthWales · 24/04/2008, 23:48

onu denedim de tam olarak neresine eklicem onu çözemedim

24/04/2008, 18:06	#1 (permalink)
NorthWales Üye Üyelik Tarihi: 01/2008 Mesaj: 104	aspnette haber modülüne yazı eklerken ' karakteri kullanımda hata arkadaşlar, bir textbox koydum onu sql komutlarıyla accessteki bir tabloma ekliyorum ancak ' işareti konulduğu takdirde hata veriyor ve veritabanına veri yazılamıyor bunu nasıl giderebilirim? kodum aşağıdaki gibidir PHP Kodu: <Script Runat="Server"> sub page_load if session("seviye")<"5" then response.redirect ("../default.aspx") end sub Sub Button_Click( s As Object, e As EventArgs ) dim a a=ConfigurationSettings.AppSettings( "weri_tabanı" ) Dim bagıntı1 As OleDbConnection bagıntı1 = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath( "../" & a ) & "") Dim sql1 As String Dim komut2 As OleDbCommand sql1 = "Insert Into haber ( haber_başlığı, haber, tarih, yollayanın_takma_adi ) Values ( '" & Başlık.text & "','" & mesaj.text & "','" & now() & "','" & alıcı.text & "')" komut2 = New OleDbCommand( sql1, bagıntı1 ) bagıntı1.Open() komut2.ExecuteNonQuery() bagıntı1.Close() ask.visible=false label1.text="<center><font color=#008800> Haber   " & alıcı.text & "   Adına Eklenmiştir.." end sub </Script> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd"> <HTML xmlns="http://www.w3.org/1999/xhtml"> <HEAD> <TITLE>Untitled Document</TITLE> <META http-equiv=Content-Type content="text/html; charset=windows-1254"> <proje:ust Runat="Server" /> <proje:menü Runat="Server" /> </TD> <TD vAlign=top width=600> <TABLE cellSpacing=1 cellPadding=1 width="100%" bgColor=#83b5f4 border=0> <TBODY> <TR> <TD><IMG height=17 src="resimler/Untitled-1f.jpg" width=17>           Mesaj Gönder (Üyeye) </TD> </TR> <TR> <TD> <asp:label id="label1" runat="server" /> <form id="ask" runat="server"> <table border="0" cellpadding="0" cellspacing="0" width="75%"> <tr> <td><IMG height=9 src="resimler/Untitled-2.jpg" width=9>Yollayanın Adı: </td> <td><asp:TextBox ID="alıcı" class="forrm" runat="server" /> </td> <td><asp:RequiredFieldValidator ControlToValidate="alıcı" Text="Bir Alicının kullanıcı Adını Yazınız!" Runat="Server" /> </td> </tr> <tr> <td><IMG height=9 src="resimler/Untitled-2.jpg" width=9>Haberin Başlığı </td> <td><asp:TextBox ID="başlık" class="forrm" runat="server" /> </td> <td><asp:RequiredFieldValidator ControlToValidate="Başlık" Text="Mesajınıza Bir Başlık Belirtiniz!" Runat="Server" /> </td> </tr> <tr> <td><IMG height=9 src="resimler/Untitled-2.jpg" width=9>haber</td> <td><asp:TextBox ID="mesaj" class="forrm" runat="server" TextMode="MultiLine" Columns="19" Rows="10" /> </td> </tr> <tr> <td><img height=9 src="resimler/Untitled-2.jpg" width=9>Onay </td> <td><asp:Button Text="Onayla" OnClick="Button_Click" runat="server" BorderStyle="notset"/> </td> <td> </td> </tr> </table> </form> </TD> </TR> <TR> <TD>  </TD> </TR> </TBODY> </TABLE> <proje:alt Runat="Server" /> onun dışında sistemde hiçbir sorun yok

24/04/2008, 21:44	#2 (permalink)
UuuR empty Üyelik Tarihi: 04/2007 Mesaj: 728	OleDbParameter kullanarak insert işlemini yaparsan,sorun çözülür (Geçici çözüm istiyorsan Başlık.text.replace("'","‘") şeklinde kullanırsan,çalışır ) __________________ artık yok..

24/04/2008, 22:10	#4 (permalink)
UuuR empty Üyelik Tarihi: 04/2007 Mesaj: 728	sql1 = "Insert Into haber ( haber_başlığı, haber, tarih, yollayanın_takma_adi ) Values ( '" & Başlık.text.replace("'","‘") & "','" & mesaj.text.replace("'","‘") & "','" & now() & "','" & alıcı.text.replace("'","‘") & "')" bu şekilde denediğinde mi hata verdi? __________________ artık yok..

24/04/2008, 22:45	#6 (permalink)
UuuR empty Üyelik Tarihi: 04/2007 Mesaj: 728	işlem için command nesnesi Dim comm As New System.Data.OleDb.OleDbCommand "command nesnesine bağlantıyı bildir comm.Connection = conn "command nesnesinin komut türünü ata comm.CommandType = CommandType.Text "parametreler ile çalışmak zor gibi görünsede aslında "modülerlik ve güvenlik gibi açılardan avantajlıdır. "kayıt işlemi için parametreleri oluştur. Dim prm(2) As System.Data.OleDb.OleDbParameter prm(0) = New System.Data.OleDb.OleDbParameter("@AdSoyad", TextBox1.Text) prm(1) = New System.Data.OleDb.OleDbParameter("@Yas", Convert.ToInt32(TextBox2.Text)) prm(2) = New System.Data.OleDb.OleDbParameter("@KayitTarihi", Convert.ToDateTime(TextBox3.Text)) 'parametreleri command nesnesine ver comm.Parameters.AddRange(prm) "insert stringi parametleri kullanarak oluştur comm.CommandText = "INSERT INTO Tablo1 (AdSoyad,Yas,KayitTarihi) VALUES(@AdSoyad,@Yas,@KayitTarihi)" "connectionu aç comm.Connection.Open() "kayıt işlemini gerçekleştir. Dim ret As Integer "işlemden sonra geriye kaç kayıt satırı işlendiği döner ret = comm.ExecuteNonQuery() MessageBox.Show(ret.ToString() + " kayıt yapıldı...") "connection u kapat comm.Connection.Close() comm.Dispose() conn.Dispose() işlem için command nesnesi Dim comm As New System.Data.OleDb.OleDbCommand "command nesnesine bağlantıyı bildir comm.Connection = conn "command nesnesinin komut türünü ata comm.CommandType = CommandType.Text "parametreler ile çalışmak zor gibi görünsede aslında "modülerlik ve güvenlik gibi açılardan avantajlıdır. "kayıt işlemi için parametreleri oluştur. Dim prm(2) As System.Data.OleDb.OleDbParameter prm(0) = New System.Data.OleDb.OleDbParameter("@AdSoyad", TextBox1.Text) prm(1) = New System.Data.OleDb.OleDbParameter("@Yas", Convert.ToInt32(TextBox2.Text)) prm(2) = New System.Data.OleDb.OleDbParameter("@KayitTarihi", Convert.ToDateTime(TextBox3.Text)) 'parametreleri command nesnesine ver comm.Parameters.AddRange(prm) "insert stringi parametleri kullanarak oluştur comm.CommandText = "INSERT INTO Tablo1 (AdSoyad,Yas,KayitTarihi) VALUES(@AdSoyad,@Yas,@KayitTarihi)" "connectionu aç comm.Connection.Open() "kayıt işlemini gerçekleştir. Dim ret As Integer "işlemden sonra geriye kaç kayıt satırı işlendiği döner ret = comm.ExecuteNonQuery() MessageBox.Show(ret.ToString() + " kayıt yapıldı...") "connection u kapat comm.Connection.Close() comm.Dispose() conn.Dispose() (Kaynak: http://www.programlama.com/sys/c2htm...hp3?DocID=6623 ) __________________ artık yok..

24/04/2008, 23:25	#8 (permalink)
NorthWales Üye Üyelik Tarihi: 01/2008 Mesaj: 104	son bir soru, yazarken farklı bir karaktere replace edebiliyorduk, peki okurken farklı karakteri orijinaline nasıl replace edebiliriz kod aşağıdaki gibidir PHP Kodu: `While oku.Read() başlık.text=oku("haber_başlığı") tarih.text=oku("tarih") mesaj.Text = oku("haber") gönderen.text=oku("yollayanın_takma_adi") sayaç.text=oku("sayaç") End While` teşekkürler.

24/04/2008, 21:54	#3 (permalink)
NorthWales Üye Üyelik Tarihi: 01/2008 Mesaj: 104	öncelikle cevabınız için teşekkür ederim fakat mesaj.text.replace("'","‘") yapmama rağmen hata devam etti, size zahmet olmazsa yukardaki kodun düzenlenmişini yazar mısınız? şimdiden çok teşekkür ederim.

24/04/2008, 22:28	#5 (permalink)
NorthWales Üye Üyelik Tarihi: 01/2008 Mesaj: 104	kardeş çok teşekkür ederim, peki şu oledbparameter'in kullanımını benim koda endekslenmiş olarak yazabilir misin? günlerdir kafa patlatıyorum sayende büyük bir sorunu gidermiş olucam

24/04/2008, 22:47	#7 (permalink)
NorthWales Üye Üyelik Tarihi: 01/2008 Mesaj: 104	teşekkür ederim

24/04/2008, 23:43	#9 (permalink)
UuuR empty Üyelik Tarihi: 04/2007 Mesaj: 728	yine aynı şekilde.,replace(a,b) yerine replace(b,a) yapıcaksın bu sefer.. __________________ artık yok..

24/04/2008, 23:48	#10 (permalink)
NorthWales Üye Üyelik Tarihi: 01/2008 Mesaj: 104	onu denedim de tam olarak neresine eklicem onu çözemedim

Seçenekler
Yazdırmaya Uygun Sayfa Sayfayı E-posta İle Gönder

Benzer Konular
Konu	Konuyu açana göre	Forum	Cevap	En Son Mesaj
Koddaki hata nerde? KAtegori eklerken sürekli 0 giriyor :S	theapeiron	PHP	3	09/11/2007 11:46
Haber Eklerken Adminden sorun oluyor YARDIM	ars	PHP	12	01/02/2007 09:14
Samba User Eklerken Hata	ilhanakkus	GNU / Linux / UNIX / BSD / Pardus	2	27/01/2007 14:08
@live.com @windowslive.com Adresleri Kullanımda	Priapos	Haberler	0	21/06/2006 11:41
yeni kayıt eklerken niye hata veriyor?	sinanco	Veritabanları & SQL	7	23/11/2005 20:44