استفاده از پایگاه داده اکسس در vb.net قسمت اول(به راحتی پروژه خودتون رو با این دستورات بنویسید)
با چند تا دستور ساده میتونید از access به راحتی توی vb استفاده کنید، اول فرم تون رو طراحی کنید بعد روی دکمه ای که قراره عملیاتی مثل اضافه کردن اطلاعات یا حذف یا ویرایش اطلاعات رو انجام بده دو بار کلیک کنید تا قسمت مربوط به کد نویسیش باز بشه، بعد بالای قسمت مربوط به کد نویسی یعنی خط اولش این دو تا دستورو بنویسید: imports system.data imports system.data.oledb
فرض کنید ما یه فایل اکس ساختیم که چند تا جدول داره و اسم یه جدولشmoshtari هست و در درایو D ذخیره شده) بعد از نوشتن این دو تا خط دیگه باید برنامه رو بنویسیم، خب اول باید یه متغیر تعریف کنیم که ارتباط بین اکسس و vb رو برقرار کنیم، پس برید تو رویداد کلیک button برنامه تون و این دستورات رو بنویسید، بین این دو تا دستور: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End Sub قبل از end sub این کدهارو بنویسید: Dim con As New OleDbConnection con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:m.accdb"
توجه کنید که قبل از نوشتن این کدها باید از قسمت server explorer پایگاه داده ای که می خواهید باهاش ارتباط برقرار کنید رو با زدن گزینه Add Connection به برنامه اضافه کنید، خط دوم کد بالا باید بین " " آدرس پایگاه داده تون رو وارد کنید، حالا باید بعد از این کد ها یه متغیر از نوع command تعریف کنیم تا بتونیم از دستورات sql استفاده کنیم، واسه این کار از کد های زیر استفاده کنید: com.Connection = con com.CommandType = CommandType.Text com.CommandText = "insert into moshtari(cod,name) values (" & cod.Text & ",’" & name.Text "’)" دقت کنید که مقادیر عددی باید بین " " و مقادیر رشته ای بین ’" "’ قرار بگیرن، این کد ها باعث میشه که به مقادیر کد و نام موجود در جدول مشتری پایگاه داده این مثال، مقادیر وارد شده در textbox های موجود در فرم اضافه بشه، حالا باید با نوشتن این کد ها برنامه رو تموم کنیم، دقت کنید که نوشتن این کد ها الزامیه تا تغییرات ایجاد بشه. con.Open() com.ExecuteNonQuery() con.Close() اینم انتهای برنامه بود، البته اینا باید قبل از end sub باشن، شکل کلی مثال بالا: Imports System.Data Imports System.Data.OleDb
Public Class insertm Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim con As New OleDbConnection con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:m.accdb" Dim com As New OleDbCommand com.Connection = con com.CommandType = CommandType.Text com.CommandText = "insert into moshtari(cod,name) values (" & cod.Text & ",’" & name.Text & "’)" con.Open() com.ExecuteNonQuery() con.Close()
End Sub End Class
ادامه دارد...(ببخشید اگه غلط املایی داشتم)
به اين مطلب امتياز دهيد:
Users here:
You haven`t enough privileges to reply in this forum.
Share this link:
| Processing time: 0.0623560 sec.
| Users online: - 0
| Guests online: - 2
| اين بخش متعلق است به: كانون دانش |
