Add Data From ASP.NET to Database

اقتباس

لقد كنت أستخدم التقنية القديمة الموجودة في ال 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 المخصصة لتنفيذ الأوامر التي لا ترجع سجلات، وترجع عوضا عن ذلك قيمة بوليانية تؤكد ما إذا تم تنفيذ الأمر بنجاح أم لا.

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

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

عزيزي الفاضل

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

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

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()

بالتوفيق

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

المهم

الأخ 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
%>

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

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

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