الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

Add Data From ASP.NET to Database

مغلق
بدأه server_programmer في 16 أكتوبر 2004 · 3 رد · 1,815 مشاهدة · في ASP.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

أخواني الأعزاء

بعد التحية

أولا أهنئكم بحلول شهر رمضان المبارك أعادة الله علينا و عليكم بالخير و اليمن و البركات

و تقبل الله صيامكم و صالح أعمالكم

ثانيا

لقد بدأت في موضوع دراست ال ASP.Net بداية جدية

لكن هنالك مشكلة صادفتني و هي عن كيفية أدخال بيانات عبر صفحة ال ASP.Net

لقد كنت أستخدم التقنية القديمة الموجودة في ال ASP السابقة

لكن للأسف أصبحت تظهر لي بعض الأخطاء ( لا أعرف السبب )

لو ممكن المساعدة من ذوي الخبرة في هذا الموضوع و أكون شاكر لكم

وفوق كل ذي علم عليم

http://www.leaderstechnology.com

-------------------------------

#2
اقتباس
لقد كنت أستخدم التقنية القديمة الموجودة في ال ASP السابقة

لكن للأسف أصبحت تظهر لي بعض الأخطاء ( لا أعرف السبب )

أهلا وسهلا بك

ممكن تعرض علينا كيف استخدمتها؟

على أي حال هذا الكود يستخدم لإدخال بيانات إلى قاعدة البيانات:

Dim strcn As String = "server=(local); database=myDB; uid=sa; trusted_connection=yes"
Dim cn As SqlConnection = New SqlConnection(strcn)
cn.Open()

Dim sql As String = "update myTable set col1=" + Str(myValue)
dim cmd as SqlCommand= New SqlCommand(sql, cn)
Dim succeeded As Boolean = cmd.ExecuteNonQuery()

if succeeded then 
  me.response.write("It is written to the DB")
  cn.close()
end if

السطرين الأول عرفت فيه جملة الاتصال Connection string ، وفي السطرين الثاني والثالث تم فتح الاتصال باستخدام جملة الاتصال.

في السطر الرابع تم تعريف جملة SQL التي تقوم بالحفظ في قاعدة البيانات،ويمكن أن تكون جملة insert أو update أو delete، ثم تم في السطر الخامس إنشاء أمر SQL لتحفظ فيه الجملة، ومن ثم تنفيذه عبر الدالة ExecuteNonQuery المخصصة لتنفيذ الأوامر التي لا ترجع سجلات، وترجع عوضا عن ذلك قيمة بوليانية تؤكد ما إذا تم تنفيذ الأمر بنجاح أم لا.

ولا تنس إغلاق الاتصال عقب الانتهاء من العمليات على قاعدة البيانات.

وبالتوفيق بإذن الله.

فكر بطريقة أخرى

#3

عزيزي الفاضل

اليك هذا الكود

قبل بدايه الكلاس تضع التالي:

Imports System.Data
Imports System.Data.OleDb

وهذا كود الادخال الي دتا بيز ولكن في access

Dim strCn As String
            strCn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("news.mdb")
            Dim cn As New OleDbConnection(strCn)
            cn.Open()
            Dim comm As New OleDbCommand
            comm.CommandText = "Insert Into login(username,passowrd,fname,lname,email,reg_date,state) Values ('" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox6.Text & "','" & Now() & "','false')"
            comm.Connection = cn

                          comm.ExecuteNonQuery()
                    cn.Close()

بالتوفيق

#4

عفوا أخواني تأخرت عليكم بس أنشغلي هو السبب

المهم

الأخ welcom

شكرا لك على المساعدة الفعالة

و بخصوص الطريق القديمة هي بنفس الفكرة التالية

اقتباس
<%
dim conn
dim rs 
set conn=server.createobject("ADODB.Connection")
set rs=server.createobject("ADODB.RECORDSET")
conn.connectionstring=cstr("Microsoft.Jet.OLEDB.4.0; Data Source =" & server.MapPath("database/person.mdb") )
rs.open conn, "Employee"
rs.addnew
rs.fields (0).value =1
rs.fields (1).value =2
rs.update
%>

و شكرا للمثال للحل الذي شاركت به أوحيي فيك أهتمامك مرة أخرى و كثر الله خيرك

أخ سلطان الحمدان

شكرا لمثال الحل الذي شاركت به كثر الله خيرك

وفوق كل ذي علم عليم

http://www.leaderstechnology.com

-------------------------------

هذا الموضوع مغلق.

مواضيع مشابهة