دلفي تعليم
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

طريقة الاتصال بقاعدة البيانات برمجيا في فجوال سي زايد زايد

اذهب الى الأسفل

طريقة الاتصال بقاعدة البيانات برمجيا في فجوال سي زايد زايد Empty طريقة الاتصال بقاعدة البيانات برمجيا في فجوال سي زايد زايد

مُساهمة  ali 29/5/2018, 3:01 pm


بسم الله الرحمن الرحيم
الصلاة والسلام على رسول الله وعلى آله صحبه أجمعين

طريقة الاتصال بقاعدة البيانات برمجيا في فجوال سي زايد زايد

هذا المثال نتعرف من خلاله كيف نضيف سجل ونعدله نحذفه و تنقل من سجل الى سجل اخر

ننشئ ملف قاعدة البيانات نقوم بالاتصال به.
ملف قاعدة البيانات DB01.mdf والجدول TAB01 وحقوله
ثم
تحديد مربعات النص لاعطائهم نفس الامر
textchanged
أي عندما تتم الكتابة داخل مربعات النص طبق هذا الامر
و
طريقة الاعلان عن sqlclient

اعلان عن بعض متغييرات مثلا كاعلان عن متغير من نوع SqlConnection
للاتصال بقاعدة البيانات و السيرفير

الكود سورس


#pragma once

namespace AddTo1 {
using namespace System;
using namespace System::ComponentModel;
using namespace System::Collections;
using namespace System::Windows::Forms;
using namespace System::Data;
using namespace System::Drawing;
///
using namespace System::Data::SqlClient;
....
public ref class Form1 : public System::Windows::Forms::Form
{
///////////////////////////////////////////////////
public: System::Data::SqlClient::SqlConnection^ conect1;
public: System::Data::SqlClient::SqlCommand^ comand1;
public: System::Data::SqlClient::SqlDataReader^ dread1;
public: System::Data::SqlClient::SqlDataAdapter^ sda1;
public: System::Windows::Forms::CurrencyManager^ cmg1;
public: System::Data::DataTable^ tbl1;

//////////////////////////////////////////////////////
.....
public:
Form1(void)
{
InitializeComponent();
///
//TODO: Add the constructor code here
//////////////////////////////////////////////////////
conect1= gcnew SqlConnection(L"Data Source=.\\SQLEXPRESS;"+
" AttachDbFilename='C:\\vc5\\DB01.mdf';"+
"Integrated Security=True;"+
"Connect Timeout=30;"+
"User Instance=True");
tbl1 = gcnew DataTable();
sda1 = gcnew SqlDataAdapter("SELECT * FROM tab01",conect1);
sda1->Fill(tbl1);
textBox1->DataBindings->Add("Text",tbl1,"id_em");
textBox2->DataBindings->Add("Text",tbl1,"nom");
textBox3->DataBindings->Add("Text",tbl1,"prenom");
textBox4->DataBindings->Add("Text",tbl1,"datee");
this->cmg1 = dynamic_cast<CurrencyManager^>(this->BindingContext[ tbl1 ]);
cmg1->Position = 0;
dataGridView1->DataSource = tbl1;
button1->Enabled = false;
}

protected:
~Form1()
{
if (components)
{
delete components;
}
}

private:
System::ComponentModel::Container ^components;

#pragma region Windows Form Designer generated code
....
void InitializeComponent(void)
{
.....
}
#pragma endregion
private: System::Void button1_Click(System::Object^ sender, System::EventArgs^ e)
{
///الاضافة
comand1 = gcnew SqlCommand("INSERT INTO TAB01(id_em,nom,prenom,datee)"+
"VALUES("+textBox1->Text+",'"+textBox2->Text+"','"+
textBox3->Text+"',#"+textBox4->Text+"#)",conect1); //
conect1->Open();
comand1->ExecuteNonQuery();
MessageBox::Show("تمت عملية الاضافة بنجاح");
conect1->Close();
cmg1->Refresh();
}

private: System::Void label2_Click(System::Object^ sender, System::EventArgs^ e)
{
}

private: System::Void button2_Click(System::Object^ sender, System::EventArgs^ e)
{ /// البحث
comand1 = gcnew SqlCommand("SELECT * FROM tab01 WHERE nom='"+
textBox5->Text+"'",conect1);
conect1->Open();
dread1 = comand1->ExecuteReader();
dread1->Read();
textBox1->Text = dread1["id_em"]->ToString();
textBox2->Text = dread1["nom"]->ToString();
textBox3->Text = dread1["prenom"]->ToString();
textBox4->Text = dread1["datee"]->ToString();
dread1->Close();
conect1->Close();

button3->Enabled = true;
button4->Enabled = true;
button1->Enabled = false;
}
private: System::Void button5_Click(System::Object^ sender, System::EventArgs^ e)
{
/// الأول
if ( cmg1->Count != 0 ) {
cmg1->Position = 0;
}
}
private: System::Void button6_Click(System::Object^ sender, System::EventArgs^ e)
{ /// التالي
if ( cmg1->Count != 0 ) {
cmg1->Position +=1;
}
}
private: System::Void button7_Click(System::Object^ sender, System::EventArgs^ e)
{ /// السابق
if ( cmg1->Count != 0 ) {
cmg1->Position -=1;
}
}
private: System::Void button8_Click(System::Object^ sender, System::EventArgs^ e)
{ /// الأخير
if ( cmg1->Count != 0 ) {
cmg1->Position = cmg1->Count - 1;
}

}
private: System::Void button3_Click(System::Object^ sender, System::EventArgs^ e)
{ /// تعديل
comand1 = gcnew SqlCommand("UPDATE tab01 SET id_em="+textBox1->Text+
", nom='"+textBox2->Text+"',prenom='"+
textBox3->Text+"'WHERE nom='"+textBox5->Text+"'",conect1); // ,#"+ textBox4->Text +"# ,datee
conect1->Open();
comand1->ExecuteNonQuery();
MessageBox::Show("تم تعديل الاسم بنجاح");
conect1->Close();
cmg1->Refresh();
button3->Enabled = false;
button4->Enabled = false;
}
private: System::Void button4_Click(System::Object^ sender, System::EventArgs^ e)
{ /// الحذف
comand1 = gcnew SqlCommand("DELETE FROM tab01 WHERE nom='"+
textBox5->Text+"'",conect1);
conect1->Open();
comand1->ExecuteNonQuery();
MessageBox::Show("تم حذف الاسم بنجاح");
conect1->Close();
cmg1->Refresh();
button3->Enabled = false;
button4->Enabled = false;
}
private: System::Void button9_Click(System::Object^ sender, System::EventArgs^ e)
{ /// مسح و جديد
if ( cmg1->Count != 0 ) {
cmg1->AddNew();
textBox1->Focus();
}
}
private: System::Void textBox1_TextChanged(System::Object^ sender, System::EventArgs^ e)
{
if ( (textBox1->Text != "")&&(textBox2->Text != "")&&(textBox3->Text != "") ) {
button1->Enabled = true;
} else {
button1->Enabled = false;
}
}
};
}

رابط تحميل الشرح

www mediafire com / file / abk3q5q0vuj5cjj / AddTo1 .rar
و
www mediafire com/ file/ abk3q5q0vuj5cjj/ AddTo1.rar /file
و
http://www.mediafire.com/file/abk3q5q0vuj5cjj/AddTo1.rar
و
http://www.mediafire.com/file/abk3q5q0vuj5cjj/AddTo1.rar/file


ali
مبرمج مجتهد

عدد المساهمات : 913
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

- مواضيع مماثلة

 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى