۱۹
اسفند

جلسه ۲۸-۰۲ : بررسی دسترسی به دیتابیس ها در VB.NET

دسته‌بندی‌ها :

جزئیات
نوع محتواآموزشی

فهرست

مقدمه

وقت بخیر دوستان، با آموزش برنامه نویسی (Visual Basic.‌NET (VB.NET از وب سایت پی وی لرن همراه هستیم. بررسی دسترسی به دیتابیس ها در VB.NET را در این بخش نیز خواهیم داشت و اتصال به یک دیتابیس و ایجاد جدول ، ستون و ردیف را به همراه مثال هایی مورد بررسی قرار خواهیم داد. با ادامه ی مباحث آموزشی همراه باشید.

بررسی دسترسی به دیتابیس ها در VB.NET

در بخش قبل با مدل شی ADO.Net و کلاس DataSet در فضای نام System.data آشنا شدیم. در این جلسه و در ابتدا اتصال به یک دیتا بیس را مورد بررسی قرار خواهیم داد و مثالی را نیز در این رابطه مورد بررسی قرار خواهیم داد.

اتصال به یک دیتا بیس

فریم ورک Net. شامل دو نوع کلاس Connection است.

SqlConnection – برای اتصال به Microsoft SQL Server طراحی شده است.
OleDbConnection – برای اتصال به طیف گسترده ای از پایگاه های داده ، مانند Microsoft Access و Oracle طراحی شده است.

مثال ۱

ما یک جدول ذخیره شده در مایکروسافت SQL Server ، به نام Customers ، در یک پایگاه داده به نام testDB ذخیره کرده ایم.

بگذارید ما به این دیتابیس متصل شویم. مراحل زیر را انجام دهید.

TOOLS را انتخاب کنید —-> Connect to Database

بررسی دسترسی به دیتابیس ها در VB.NET

یک نام سرور و نام پایگاه داده را در کادر محاوره ای Add Connection انتخاب کنید.

بررسی دسترسی به دیتابیس ها در VB.NET – کادر محاوره ای Add Connection

بر روی دکمه ی Test Connection کلیک کنید تا بررسی کنید که آیا این اتصال موفق شده یا خیر.

بررسی دسترسی به دیتابیس ها در VB.NET

یک DataGridView را روی فرم اضافه کنید.

بررسی دسترسی به دیتابیس ها در VB.NET – افزودن یک DataGridView روی فرم

روی جعبه ی انتخاب گزینه ی Choose Data Source combo کلیک کنید.
روی لینک Add Project Data Source کلیک کنید.

بررسی دسترسی به دیتابیس ها در VB.NET

این کار گزینه ی Data Source Configuration Wizard را باز می کند.
Database را به عنوان نوع منبع داده انتخاب کنید.

Database را به عنوان نوع منبع داده – بررسی دسترسی به دیتابیس ها در VB.NET

DataSet را به عنوان مدل دیتابیس انتخاب کنید.

DataSet به عنوان مدل دیتابیس – بررسی دسترسی به دیتابیس ها در VB.NET

کانکشنی که قبلا تنظیم شده است را انتخاب کنید.

بررسی دسترسی به دیتابیس ها در VB.NET – انتخاب کانکشن

رشته ی کانکشن را ذخیره کنید.

بررسی دسترسی به دیتابیس ها در VB.NET

در این مثال ، شیء دیتابیس ، جدول Customers را انتخاب کرده و بر روی دکمه ی Finish کلیک کنید.

بررسی دسترسی به دیتابیس ها در VB.NET – کلیک روی دکمه Finish

Preview Data link را برای دیدن داده ها در گراید Results انتخاب کنید.

بررسی دسترسی به دیتابیس ها در VB.NET – انتخاب Preview Data link

هنگامی که برنامه با استفاده از دکمه ی Start موجود در نوار ابزار Microsoft Visual Studio اجرا می شود ، پنجره زیر را به ما نشان می دهد.

بررسی دسترسی به دیتابیس ها در VB.NET

مثال ۲

در این مثال ، اجازه دهید با استفاده از کد به داده ها در کنترل DataGridView دسترسی پیدا کنیم. مراحل زیر را با دقت انجام دهید.

یک کنترل DataGridView و یک دکمه در فرم اضافه کنید.
متن دکمه ی کنترل را به “Fill” تغییر دهید.

بر روی دکمه ی کنترل دابل کلیک کنید تا کد مورد نیاز برای رویداد کلیک دکمه را اضافه کنید ، همان طور که در زیر آورده شده است.

مثال :

Imports System.Data.SqlClient
Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) _
   Handles MyBase.Load
      'TODO: This line of code loads data into the 'TestDBDataSet.CUSTOMERS' table.   
      You can move, or remove it, as needed.
      
      Me.CUSTOMERSTableAdapter.Fill(Me.TestDBDataSet.CUSTOMERS)
      ' Set the caption bar text of the form.   
      Me.Text = "tutorialspoint.com"
   End Sub
   
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      Dim connection As SqlConnection = New sqlconnection()
      connection.ConnectionString = "Data Source=KABIR-DESKTOP; _
         Initial Catalog=testDB;Integrated Security=True"
      connection.Open()
      Dim adp As SqlDataAdapter = New SqlDataAdapter _
      ("select * from Customers", connection)
      Dim ds As DataSet = New DataSet()
      adp.Fill(ds)
      DataGridView1.DataSource = ds.Tables(0)
   End Sub
End Class

Imports System.Data.SqlClient

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) _

Handles MyBase.Load

'TODO: This line of code loads data into the 'TestDBDataSet.CUSTOMERS' table.

You can move, or remove it, as needed.

Me.CUSTOMERSTableAdapter.Fill(Me.TestDBDataSet.CUSTOMERS)

' Set the caption bar text of the form.

Me.Text = "tutorialspoint.com"

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim connection As SqlConnection = New sqlconnection()

connection.ConnectionString = "Data Source=KABIR-DESKTOP; _

Initial Catalog=testDB;Integrated Security=True"

connection.Open()

Dim adp As SqlDataAdapter = New SqlDataAdapter _

("select * from Customers", connection)

Dim ds As DataSet = New DataSet()

adp.Fill(ds)

DataGridView1.DataSource = ds.Tables(0)

End Sub

End Class

هنگامی که کد فوق با استفاده از دکمه ی Start موجود در نوار ابزار Microsoft Visual Studio کامپایل و اجرا می شود، پنجره زیر را به ما نشان می دهد.

بررسی دسترسی به دیتابیس ها در VB.NET – کامپایل و اجرا

با کلیک بر روی دکمه ی Fill جدولی شبیه شکل زیر نمایش داده می شود.

بررسی دسترسی به دیتابیس ها در VB.NET

در ادامه به مبحث ایجاد جدول ، ستون و ردیف می پردازیم و مثالی نیز در این خصوص خواهیم داشت.

ایجاد جدول ، ستون و ردیف

همان طور که می دانید ما قبلا بحث کرده ایم که اجزای DataSet مانند DataTable ، DataColumn و DataRow به ما امکان می دهند به ترتیب جداول ، ستون ها و سطرهایی را ایجاد کنیم.

مثال زیر این مفهوم را به خوبی نشان می دهد.

مثال ۳

تاکنون از جداول و دیتا بیس ها در رایانه خود استفاده کرده ایم. در این مثال ، ما یک جدول ایجاد خواهیم کرد ، ستون ها ، ردیف ها و داده ها را در آن قرار می دهیم و جدول را با استفاده از یک شی DataGridView نمایش می دهیم.

مراحل زیر را با دقت انجام دهید.

یک کنترل DataGridView و یک دکمه در فرم اضافه کنید.
متن دکمه ی کنترل را به “Fill” تغییر دهید.
کد زیر را در ویرایشگر کد خود اضافه کنید.

مثال :

Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      ' Set the caption bar text of the form.   
      Me.Text = "tutorialspont.com"
   End Sub
   
   Private Function CreateDataSet() As DataSet
      'creating a DataSet object for tables
      Dim dataset As DataSet = New DataSet()
      ' creating the student table
      Dim Students As DataTable = CreateStudentTable()
      dataset.Tables.Add(Students)
      Return dataset
   End Function
   
   Private Function CreateStudentTable() As DataTable
      Dim Students As DataTable
      Students = New DataTable("Student")
      ' adding columns
      AddNewColumn(Students, "System.Int32", "StudentID")
      AddNewColumn(Students, "System.String", "StudentName")
      AddNewColumn(Students, "System.String", "StudentCity")
      ' adding rows
      AddNewRow(Students, 1, "Zara Ali", "Kolkata")
      AddNewRow(Students, 2, "Shreya Sharma", "Delhi")
      AddNewRow(Students, 3, "Rini Mukherjee", "Hyderabad")
      AddNewRow(Students, 4, "Sunil Dubey", "Bikaner")
      AddNewRow(Students, 5, "Rajat Mishra", "Patna")
      Return Students
   End Function
   
   Private Sub AddNewColumn(ByRef table As DataTable, _ 
   ByVal columnType As String, ByVal columnName As String)
      Dim column As DataColumn = _ 
         table.Columns.Add(columnName, Type.GetType(columnType))
   End Sub

   'adding data into the table
   Private Sub AddNewRow(ByRef table As DataTable, ByRef id As Integer,_
   ByRef name As String, ByRef city As String)
      Dim newrow As DataRow = table.NewRow()
      newrow("StudentID") = id
      newrow("StudentName") = name
      newrow("StudentCity") = city
      table.Rows.Add(newrow)
   End Sub
   
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      Dim ds As New DataSet
      ds = CreateDataSet()
      DataGridView1.DataSource = ds.Tables("Student")
   End Sub
End Class

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

' Set the caption bar text of the form.

Me.Text = "tutorialspont.com"

End Sub

Private Function CreateDataSet() As DataSet

'creating a DataSet object for tables

Dim dataset As DataSet = New DataSet()

' creating the student table

Dim Students As DataTable = CreateStudentTable()

dataset.Tables.Add(Students)

Return dataset

End Function

Private Function CreateStudentTable() As DataTable

Dim Students As DataTable

Students = New DataTable("Student")

' adding columns

AddNewColumn(Students, "System.Int32", "StudentID")

AddNewColumn(Students, "System.String", "StudentName")

AddNewColumn(Students, "System.String", "StudentCity")

' adding rows

AddNewRow(Students, 1, "Zara Ali", "Kolkata")

AddNewRow(Students, 2, "Shreya Sharma", "Delhi")

AddNewRow(Students, 3, "Rini Mukherjee", "Hyderabad")

AddNewRow(Students, 4, "Sunil Dubey", "Bikaner")

AddNewRow(Students, 5, "Rajat Mishra", "Patna")

Return Students

End Function

Private Sub AddNewColumn(ByRef table As DataTable, _

ByVal columnType As String, ByVal columnName As String)

Dim column As DataColumn = _

table.Columns.Add(columnName, Type.GetType(columnType))

End Sub

'adding data into the table

Private Sub AddNewRow(ByRef table As DataTable, ByRef id As Integer,_

ByRef name As String, ByRef city As String)

Dim newrow As DataRow = table.NewRow()

newrow("StudentID") = id

newrow("StudentName") = name

newrow("StudentCity") = city

table.Rows.Add(newrow)

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim ds As New DataSet

ds = CreateDataSet()

DataGridView1.DataSource = ds.Tables("Student")

End Sub

End Class

هنگامی که کد فوق با استفاده از دکمه ی Start موجود در نوار ابزار Microsoft Visual Studio کامپایل و اجرا می شود، پنجره زیر را به ما نشان می دهد.

بررسی دسترسی به دیتابیس ها در VB.NET – کامپایل و اجرا

با کلیک بر روی دکمه ی Fill جدول در کنترل مشاهده گراید داده نمایش داده می شود.

بررسی دسترسی به دیتابیس ها در VB.NET – کلیک بر روی دکمه Fill

کلام پایانی

دوستان، با آموزش برنامه نویسی ویژوال بیسیک دات نت از وب سایت پی وی لرن همراه هستیم. در این بخش به مبحث بررسی دسترسی به دیتابیس ها در VB.NET پرداختیم و اتصال به یک دیتابیس و ایجاد جدول ، ستون و ردیف را به همراه مثال هایی مورد بررسی قرار دادیم. در بخش بعدی نیز آموزش VB.NET را ادامه داده ، به بررسی Excel Sheet می پردازیم. با ادامه ی آموزش ها همراه باشید.

QR: جلسه ۲۸-۰۲ : بررسی دسترسی به دیتابیس ها در VB.NET

به اشتراک بگذارید

آموزش VB.Net ,اتصال به یک دیتا بیس - آموزش vb.net ,ایجاد جدول ، ستون و ردیف - آموزش vb.net ,دیتابیس ها در VB.NET

دیدگاه کاربران

تعداد دیدگاه : 0

پی وی لرن – آموزش برنامه نویسی و طراحی وب سایت

دوره های آموزشی آکادمی پی وی لرن (پروژه محور و ویژه بازار کار)

جلسه ۲۸-۰۲ : بررسی دسترسی به دیتابیس ها در VB.NET

مقدمه

بررسی دسترسی به دیتابیس ها در VB.NET

اتصال به یک دیتا بیس

مثال ۱

مثال ۲

ایجاد جدول ، ستون و ردیف

مثال ۳

کلام پایانی

لیست مطالب دوره

مطالب ویژه

دسته های اصلی

برگه ها

بلاگ