asp - mysql kayıt ekleme de sorun yaşıyorum.

16-11-2016, 22:02:24

Microsoft VBScript çalýþma hatasý hata '800a01a8'

Nesne gerekli: 'db'

?, satır 0
-----------------------------------
merhaba herkese kolay gelsin.

yukarıdaki hatayı almaktayım birtürlü çözemedim.

kodlarım bu şekilde.

<%
' Formdan gelen değerleri alalım
name=Request.Form("name"  )  
description=Request.Form("description"  )  
is_active=Request.Form("is_active"  )  
has_date_restriction=Request.Form("has_date_restriction"  )  
version=Request.Form("version"  )  


' Formdan gelen değerlerin boş olup olmadıgını kontrol ediyorum.  
If name="" or description="" or is_active=""   or has_date_restriction=""  or version=""  Then  
Response.Write "Formda eksik bilgi bıraktınız.<br><br>"  
Response.Write "Geri dönüp kontro lederek tekrar deneyiniz.<br><br>"  
Response.Write "<a href=javascript:history.back( )>Geri dönmek için tıklayınız.</a>"  
Else  

' Gelen değerleri kontrol ettik. şimdi kayıt edelim.  
Set mbag=db.Execute("insert into admin_workspace (name,description,is_active,has_date_restriction,version)  values ('" & name & "','" & description & "','" & is_active & "','" & has_date_restriction & "','" & version & "')" )  
Response.Write " Kayıt başarıyla gerçekleşti.<br><br>"  
Response.Write " Tüm kayıtlara bakmak için <a href=muhasebe.asp>Tıklayınız.</a>"  

End If  

%>

yardımcı olursanız sevnirim.

--R10.NET; Flood Engellendi -->-> Yeni yazılan mesaj 21:02:24 -->-> Daha önceki mesaj 20:58:56 --

Form Alanım da bu şekilde.

<form action="muhasebe_firma_ekle_kayit.asp" method="post" language="javascript">
<input type="hidden" name="add" value="1">
<input type="hidden" name="is_active" value="1">
<input type="hidden" name="has_date_restriction" value="0">
<input type="hidden" name="version" value="1">
<table border="0" width="100%">
<tr>
    <td width="22%" height="40"><b>Firma Adı  : &nbsp;</b></td>
  </tr>
  <tr>
    <td width="78%" height="40"><input type="text" name="name" size="70"></td>
  </tr>
  <tr>
    <td width="22%" height="40"><b>Firma Açıklaması  : &nbsp;</b></td>
  </tr>
  <tr>
    <td width="78%" height="40"><textarea name="description" rows="8" cols="80"></textarea><br><br><br><br></td>
  </tr>
  <tr>
    <td width="100%" height="40" align="right"><br><INPUT TYPE="submit" VALUE=" Kategoriyi Kaydet ">
</td>
  </tr>
</table>


</form>

16-11-2016, 22:09:14

~~yuKKo~~

Üyeliği durduruldu

salsa77 adlı üyeden alıntı: mesajı görüntüle

<%
' Formdan gelen değerleri alalım
name=Request.Form("name"  )  
description=Request.Form("description"  )  
is_active=Request.Form("is_active"  )  
has_date_restriction=Request.Form("has_date_restriction"  )  
version=Request.Form("version"  )  


' Formdan gelen değerlerin boş olup olmadıgını kontrol ediyorum.  
If name="" or description="" or is_active=""   or has_date_restriction=""  or version=""  Then  
Response.Write "Formda eksik bilgi bıraktınız.<br><br>"  
Response.Write "Geri dönüp kontro lederek tekrar deneyiniz.<br><br>"  
Response.Write "<a href=javascript:history.back( )>Geri dönmek için tıklayınız.</a>"  
Else  

' Gelen değerleri kontrol ettik. şimdi kayıt edelim.  
Set mbag=db.Execute("insert into admin_workspace (name,description,is_active,has_date_restriction,version)  values ('" & name & "','" & description & "','" & is_active & "','" & has_date_restriction & "','" & version & "')" )  
Response.Write " Kayıt başarıyla gerçekleşti.<br><br>"  
Response.Write " Tüm kayıtlara bakmak için <a href=muhasebe.asp>Tıklayınız.</a>"  

End If  

%>

yardımcı olursanız sevnirim.

--R10.NET; Flood Engellendi -->-> Yeni yazılan mesaj 21:02:24 -->-> Daha önceki mesaj 20:58:56 --

Form Alanım da bu şekilde.

<form action="muhasebe_firma_ekle_kayit.asp" method="post" language="javascript">
<input type="hidden" name="add" value="1">
<input type="hidden" name="is_active" value="1">
<input type="hidden" name="has_date_restriction" value="0">
<input type="hidden" name="version" value="1">
<table border="0" width="100%">
<tr>
    <td width="22%" height="40"><b>Firma Adı  : &nbsp;</b></td>
  </tr>
  <tr>
    <td width="78%" height="40"><input type="text" name="name" size="70"></td>
  </tr>
  <tr>
    <td width="22%" height="40"><b>Firma Açıklaması  : &nbsp;</b></td>
  </tr>
  <tr>
    <td width="78%" height="40"><textarea name="description" rows="8" cols="80"></textarea><br><br><br><br></td>
  </tr>
  <tr>
    <td width="100%" height="40" align="right"><br><INPUT TYPE="submit" VALUE=" Kategoriyi Kaydet ">
</td>
  </tr>
</table>


</form>

Klasik asp yi birakip asp.net mvc ye gecmeniz önerilir .

17-11-2016, 10:14:32

~~CodeBoss~~

Üyeliği durduruldu

Çünkü db nesnen yok, kodlarının düzenlenmiş hali aşağıda;

<%
' Formdan gelen değerleri alalım
name=Request.Form("name"  )  
description=Request.Form("description"  )  
is_active=Request.Form("is_active"  )  
has_date_restriction=Request.Form("has_date_restriction"  )  
version=Request.Form("version"  )  
 
 
' Formdan gelen değerlerin boş olup olmadıgını kontrol ediyorum.  
If name="" or description="" or is_active=""   or has_date_restriction=""  or version=""  Then  
Response.Write "Formda eksik bilgi bıraktınız.<br><br>" 
Response.Write "Geri dönüp kontro lederek tekrar deneyiniz.<br><br>" 
Response.Write "<a href=javascript<b></b>:history.back( )>Geri dönmek için tıklayınız.</a>" 
Else  
 
' Gelen değerleri kontrol ettik. şimdi kayıt edelim. 
 mysql_server = "localhost"
   mysql_user = "root"
   mysql_pass = ""
   mysql_db = "veritabani"

Set db = Server.createObject("Adodb.Connection")
   db.Open "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=" & mysql_server & "; UID=" & mysql_user & "; pwd=" & mysql_pass & "; db=" & mysql_db & ";"

Set mbag=db.Execute("insert into admin_workspace (name,description,is_active,has_date_restriction,version)  values ('" & name & "','" & description & "','" & is_active & "','" & has_date_restriction & "','" & version & "')" )  
Response.Write " Kayıt başarıyla gerçekleşti.<br><br>" 
Response.Write " Tüm kayıtlara bakmak için <a href=muhasebe.asp>Tıklayınız.</a>" 
 
End If  
 
%>

18-11-2016, 08:28:52

salsa77

CodeBoss adlı üyeden alıntı: mesajı görüntüle

Çünkü db nesnen yok, kodlarının düzenlenmiş hali aşağıda;

<%
' Formdan gelen değerleri alalım
name=Request.Form("name"  )  
description=Request.Form("description"  )  
is_active=Request.Form("is_active"  )  
has_date_restriction=Request.Form("has_date_restriction"  )  
version=Request.Form("version"  )  
 
 
' Formdan gelen değerlerin boş olup olmadıgını kontrol ediyorum.  
If name="" or description="" or is_active=""   or has_date_restriction=""  or version=""  Then  
Response.Write "Formda eksik bilgi bıraktınız.<br><br>" 
Response.Write "Geri dönüp kontro lederek tekrar deneyiniz.<br><br>" 
Response.Write "<a href=javascript<b></b>:history.back( )>Geri dönmek için tıklayınız.</a>" 
Else  
 
' Gelen değerleri kontrol ettik. şimdi kayıt edelim. 
 mysql_server = "localhost"
   mysql_user = "root"
   mysql_pass = ""
   mysql_db = "veritabani"

Set db = Server.createObject("Adodb.Connection")
   db.Open "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=" & mysql_server & "; UID=" & mysql_user & "; pwd=" & mysql_pass & "; db=" & mysql_db & ";"

Set mbag=db.Execute("insert into admin_workspace (name,description,is_active,has_date_restriction,version)  values ('" & name & "','" & description & "','" & is_active & "','" & has_date_restriction & "','" & version & "')" )  
Response.Write " Kayıt başarıyla gerçekleşti.<br><br>" 
Response.Write " Tüm kayıtlara bakmak için <a href=muhasebe.asp>Tıklayınız.</a>" 
 
End If  
 
%>

teşekkür ederim kardeşim...

sadece
Set mbag=db.Execute("insert into admin_workspace (name,description,is_active,has_date_restriction,v ersion) values ('" & name & "','" & description & "','" &

satırındaki db y, bag yamam yeterli oldu ben mysql bağlantısını farklı sayfada yapmıştım. tekrar bağlanmama gerek yok.

<%
' Formdan gelen değerleri alalım
name=Request.Form("name"  )  
description=Request.Form("description"  )  
is_active=Request.Form("is_active"  )  
has_date_restriction=Request.Form("has_date_restriction"  )  
version=Request.Form("version"  )  
 
 
' Formdan gelen değerlerin boş olup olmadıgını kontrol ediyorum.  
If name="" or description="" or is_active=""   or has_date_restriction=""  or version=""  Then  
Response.Write "Formda eksik bilgi bıraktınız.<br><br>" 
Response.Write "Geri dönüp kontro lederek tekrar deneyiniz.<br><br>" 
Response.Write "<a href=javascript<b></b>:history.back( )>Geri dönmek için tıklayınız.</a>" 
Else  
 
' Gelen değerleri kontrol ettik. şimdi kayıt edelim.  
Set mbag=db.Execute("insert into admin_workspace (name,description,is_active,has_date_restriction,version)  values ('" & name & "','" & description & "','" & is_active & "','" & has_date_restriction & "','" & version & "')" )  
Response.Write " Kayıt başarıyla gerçekleşti.<br><br>" 
Response.Write " Tüm kayıtlara bakmak için <a href=muhasebe.asp>Tıklayınız.</a>" 
 
End If  
 
%>