PDA

View Full Version : آموزش: درخواست آموزش ارتباط vb.net 2010 با دیتابیس access و sql server



parsaid
چهارشنبه 06 مهر 1390, 21:13 عصر
سلام، بنده هرچی گشتم و جستجو کردم، نتونستم اطلاعات بدرد بخوری در نحوه اتصال vb.net 2010 به دیتابیس پیدا کنم؟؟!!!
از اساتید محترم خواهشمندم نحوه اتصال و استفاده کامل از دیتابیس رو بطور کامل توضیح بفرمایی.
ارادتمند

sanay_esh
چهارشنبه 06 مهر 1390, 23:04 عصر
در این سایت از این مطالب خیلی خیلی فراوان یافت میشه خواهشا کمی جستجو کن پیدا میکنی

این ارتباط با SQL

Public Class frm
Imports System.Data.SqlClient
Imports System.Data

Private Sub ConnectToSQL()
Dim con As New SqlConnection
Dim cmd As New SqlCommand
Try
con.ConnectionString = "Data Source=atisource;Initial Catalog=BillingSys;Persist Security Info=True;User ID=sa;Password=12345678"
con.Open()
Catch ex As Exception
MessageBox.Show("Error while connecting to SQL Server." & ex.Message) Finally
con.Close() 'Whether there is error or not. Close the connection.
End Try
End Sub

اینم برای اکسس


Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
استفاده از يک متغير رشته ای بمنظور ذخيره سازی Connectionstring'
Dim connectString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" &_
"Data Source=C:\MyDB\NWIND.MDB"
ايجاد يک شی OleDbConnection و ارسال مقدار متغير ConnectionString '
Dim cn As OleDbConnection = New OleDbConnection(connectString)
فعال نمودن Connection'
cn.Open()
استفاده از يک متغير بمنظور ذخيره عبارت SQL'
Dim selectString As String = "SELECT CustomerID, ContactName, Phone FROM Customers"
ايجاد يک شی OledbCommand'
در اين خط متغير عبارت SQL و شی OleDbConnection ، ارسال می گردد '
Dim cmd As OleDbCommand = New OleDbCommand(selectString, cn)
ارسال CommandText به Connection و ايجاد يک OleDbDataReader '
OleDbDataReader از نوع " فقط بسمت جلو " خواهد بود'
Dim reader As OleDbDataReader = cmd.ExecuteReader()
تنظيم عرض جدول '
DisplayTable.Width = Unit.Percentage(90.0)
ايجاد يک سطر جديد برای اضافه نمودن عنوان جدول'
Dim tableHeading As TableRow = New TableRow()
ايجاد و اضافه نمودن سلول های شامل ستون Customer ID '
Dim customerIDHeading As TableHeaderCell = New TableHeaderCell()
customerIDHeading.Text = "Customer ID"
customerIDHeading.HorizontalAlign = HorizontalAlign.Left
tableHeading.Cells.Add(customerIDHeading)
ايجاد و اضافه نمودن سلول های شامل ستون Contact Name '
Dim contactNameHeading As TableHeaderCell = New TableHeaderCell()
contactNameHeading.Text = "Contact Name"
contactNameHeading.HorizontalAlign = HorizontalAlign.Left
tableHeading.Cells.Add(contactNameHeading)
ايجاد و اضافه نمودن سلول های شامل ستون Phone '
Dim phoneHeading As TableHeaderCell = New TableHeaderCell()
phoneHeading.Text = "Phone"
phoneHeading.HorizontalAlign = HorizontalAlign.Left
tableHeading.Cells.Add(phoneHeading)
DisplayTable.Rows.Add(tableHeading)
تکرار در بين داده انتخابی نتايج و افزودن داده برای هر يک از ستون های مورد نظر در جدول '
While(reader.Read())
Dim detailsRow As TableRow = New TableRow()
Dim customerIDCell As TableCell = New TableCell()
customerIDCell.Text = reader("CustomerID").ToString()
detailsRow.Cells.Add(customerIDCell)
Dim contactNameCell As TableCell = New TableCell()
contactNameCell.Text = reader("ContactName").ToString()
detailsRow.Cells.Add(contactNameCell)
Dim phoneCell As TableCell = New TableCell()
phoneCell.Text = reader("Phone").ToString()
detailsRow.Cells.Add(phoneCell)
DisplayTable.Rows.Add(detailsRow)
End While
بستن Connection'
reader.Close()
cn.Close()
End Sub

parsaid
پنج شنبه 07 مهر 1390, 10:32 صبح
ممنون دوست عزیز.
لطفاً نحوه ثبت رو هم بفرمائید.
در ضمن میخوام در3 جدول بطور همزمان جستجو کنم، RecordSet رو باید چه جوری مقدار دهی کنم؟

RamezanBeik
پنج شنبه 07 مهر 1390, 15:54 عصر
ممنون دوست عزیز.
لطفاً نحوه ثبت رو هم بفرمائید.
در ضمن میخوام در3 جدول بطور همزمان جستجو کنم، RecordSet رو باید چه جوری مقدار دهی کنم؟

این کا رو باید با دسنر Select انجام بدید.

RamezanBeik
پنج شنبه 07 مهر 1390, 15:55 عصر
شما می تو نید از Server Explorer برای ایجاد اتصا استفاده کنید.

parsaid
جمعه 08 مهر 1390, 11:33 صبح
دوست عزیز میشه در مورد Server Explorer بیشتر توضیح بدین؟
ممنون

sooshianc
دوشنبه 21 فروردین 1391, 09:27 صبح
مي شه در مو رد ثبت اطلاعات در sql بفرماىىد?

Hybrid
دوشنبه 21 فروردین 1391, 10:43 صبح
سلام دوستان ، توصیه میکنم تاپیک زیر رو دنبال کنین :

آموزش: برنامه نویسی پایگاه داده به صورت گام به گام (http://barnamenevis.org/showthread.php?333713-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D9%86%D9%88%DB%8C%D8%B3%DB%8C-%D9%BE%D8%A7%DB%8C%DA%AF%D8%A7%D9%87-%D8%AF%D8%A7%D8%AF%D9%87-%D8%A8%D9%87-%D8%B5%D9%88%D8%B1%D8%AA-%DA%AF%D8%A7%D9%85-%D8%A8%D9%87-%DA%AF%D8%A7%D9%85)


موفق باشید

ARS2009
شنبه 23 دی 1391, 13:05 عصر
آقا یه سوال این کد رو کجا باید نوشت (برای sql)؟
آخه من تازه شروع کردم به برنامه نویسی!!!!!!!!!!!