کد دکمه

[mah47gh]

لطفا کد دکمه برای باز کردن دیتا بیس اکسس فعال شده در فرم در برنامه نوشته شده با ویژوال بیسیک دات نت را راهنمایی فرمایید

[hamidrezax1]

دوست عزیز محبت میکنید یکم بیشتر توضیح بدید؟

[mah47gh]

دوست عزیز محبت میکنید یکم بیشتر توضیح بدید؟

سلام . تشکر
من میخواهم بروی فرم vb.net یک دکمه بزارم که با کلیک روی آن دیتا بیس اکسس این برنامه باز شود تا بتوان هم به ماکرو ها را دسترسی داشت هم خروجی اکسل گرفت

[hamidrezax1]

سلام دوست عزیز


Dim da As New OleDbDataAdapter
Dim ds As New DataSet
Dim cc As New OleDbConnection
Dim a As Integer = 0
Dim s As String = "D:\1.mdb"


cc.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & s & ";Jet OLEDB:Database Password=;"
ds.Clear()
DataGridView1.DataBindings.Clear()
DataGridView1.ReadOnly = True
da.SelectCommand = New OleDbCommand
da.SelectCommand.Connection = cc
da.SelectCommand.CommandType = CommandType.Text
da.SelectCommand.CommandText = "Select * From table1"

cc.Open()

da.Fill(ds, "table1")

cc.Close()

DataGridView1.DataBindings.Add(New Binding("datasource", ds, "table1"))



با این کد میتونید دیتابیس اکسس رو باز کنید
با رجوع به این صفحه (http://www.visual-basic-tutorials.com/export-datagridview-to-excel-in-visual-basic.html) هم میتونید از دیتا گرید خودتون خروجی اکسل بگیرین
موفق باشید