۩•♥•(( كيفية اضافة database الى SQL

السلام عليكم ورحمة الله وبركاته


درس متعلق ب vb.net يتمحور حول كيفية اضافة database الى SQL اهدي هدا الدرس لكل
عضو في الازعر المشاغب


درسي يتمحور حول برنامج صغير للتحكم في SQL من ال VB.net



أبدأ بفورم connexion

1-creer un nouveau projet

2-projet<<ajouter un nouveau module

ونكتب الكود التالي

كود:

'on dois importer les bib necessaire pr travailler sur SQL et etablir une connection avec! Imports System.Data Imports System.Data.SqlClient Module Module1 Public C As String 'c serait la chaine de connection Public con As SqlConnection ' c l'objet de connection de la base de donnes Public cmd As SqlCommand 'objet d commande Public dad As SqlDataAdapter 'le data adapteur Public das As DataSet ' la table qu'on utilise pour stocker les données envoyé d'SQL Sub charger(ByVal chaine As String) 'c'est une procedure qu'on utilise pour envoyer des requettes vers SQL 'si une erreur est signal‚ durent le debug dans cette chaine '<< eh bien c'est la requette qui est erron‚ con = New SqlConnection(C) cmd = New SqlCommand cmd.Connection = con cmd.CommandType = CommandType.Text cmd.CommandText = chaine dad = New SqlDataAdapter(cmd) das = New DataSet dad.Fill(das, cmd.CommandText) End Sub End Module


في هدا الكود نقوم بصنع دالة او بالاحرى procedure

مهمة هده الدالة هي أن تقوم بعمل اتصال مع ال SQL

لنقوم ببعث des requettes لهدا الاخير عن طريقها



projet>>>ajouter un formulaire windows<<<<formulaire de connexion

ويمكنكم تزيينه كما تريدون وتغيير الخلفية كما تريدون أيضا

هنا اخترت اضافة picture box



على كود الزر GO

نكتب الكود التالي

كود:

'Le try c pour eviter les beug et afficher le msg d'erreur au cour de l'execution! Try 'on etablit une connection a laide de la chaine de connection suivante C = "User ID=" + Tlogin.Text + ";Initial Catalog=master; Data Source=(local);password=" + Tpasse.Text + ";" con = New SqlConnection(C) con.Open() Me.Hide() Dim f As New gestion_base f.Show() Catch ex As Exception MsgBox(ex.Message) End Try End Sub


وعلى كود الزر END

نكتب الكود التالي

كود:

Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click End 'هده الكمند لأنهاء البرنامج End Sub


هنا أود أن أاكد على أمر مهم وهو انه يتوجب علينا استدعاء المكتبات التالية في كول بداية كود لفورم معين


كود:

Imports System.Data Imports System.Data.SqlClient






وقد سميت:

الفورم:gestion_base

datagride كالتالي:liste

textbox كالتالي:tbase

وعلى الزر ajouter نكتب الكود التالي

كود:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try charger("create database " + tbase.Text + "") MsgBox("ajout effectu‚e") Catch ex As Exception MsgBox(ex.Message) End Try charger("select name from sysdatabases where dbid > 6") liste.DataSource = das.Tables(cmd.CommandText) tbase.Text = "" tbase.Select() End Sub


وبالمناسبة ف try هي كبارة عن commande مهمة جدا في vb.net

لانها تساعد على انقاص الأخطاء في execution

لانه عندها الاخطاء تظهر على شكل msgbox

charger للتدكير هي الدالة التي وضعناها في module

وفي داخلها نرسل les requettes الى SQL



وأما الان فأمر الى الزر الثاني اي supprimer

ونكتب به الكود التالي

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Try

charger("use master")

charger("drop database " + tbase.Text + "")

MsgBox("suppression effectu‚")

' ici on remplit le data gride:

charger("select name from sysdatabases where dbid > 6")

liste.DataSource = das.Tables(cmd.CommandText)

Catch ex As Exception

MsgBox(ex.Message)

End Try

tbase.Text = ""

tbase.Select()

End Sub

وعلى كود الضغط على الداتا كريد:

كود:

Private Sub liste_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles liste.Click Dim a As Integer a = liste.CurrentRow.Index tbase.Text = liste.Rows(a).Cells(0).Value End Sub


وعلى load اي عند تحميل الفورم نكتب التالي

كود:

Private Sub gestion_base_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load charger("select name from sysdatabases where dbid > 6") liste.DataSource = das.Tables(cmd.CommandText) End Sub




تحــــــــــــياتي

ارجوا ان ارى ردودا كثيرة ومعبرة

التوقيع