mrstar
جمعه 19 شهریور 1389, 15:53 عصر
با سلام من یه برنامه نوشتم میخوام رکوردهای یه دیتابیس access رو روی dataride نمایش بدم
این کدها رو امتحان کردم جواب میدن
Imports System.Data
Imports System.Data.OleDb
----------------------------------------------------------------------------------------------------------------
Public Class Form2
Dim con As New OleDbConnection
Dim cmd As New OleDbCommand
Dim da As New OleDbDataAdapter
Dim dt As New DataTable
Dim ds As New DataSet()
Dim newrow As DataRow
Dim strsql As String
Dim strcon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\My Documents\Visual Studio 2005\Projects\labas\personel.mdb"
----------------------------------------------------------------------------------------------------------------
Private Sub BUTTON1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BUTTON1.Click
strsql = "SELECT * FROM person
con = New OleDbConnection(strcon)
con.Open()
da = New OleDbDataAdapter(strsql, con) ,change
da.Fill(dt) ,change
DataGridView1.DataSource = dt ,change
dt.Dispose()
da.Dispose()
cmd.Dispose()
con.Dispose()
End Sub
اما وقتی اون خطوطی رو که جلوشون change نوشتم با خطوط زیر عوض میکنم برنامه کار نمی کنه
da = New OleDbDataAdapter(strsql, con)
da.Fill(ds, "person")
DataGridView1.DataSource = ds
اگه ممکنه یه خورده توضیح بدین
این کدها رو امتحان کردم جواب میدن
Imports System.Data
Imports System.Data.OleDb
----------------------------------------------------------------------------------------------------------------
Public Class Form2
Dim con As New OleDbConnection
Dim cmd As New OleDbCommand
Dim da As New OleDbDataAdapter
Dim dt As New DataTable
Dim ds As New DataSet()
Dim newrow As DataRow
Dim strsql As String
Dim strcon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\My Documents\Visual Studio 2005\Projects\labas\personel.mdb"
----------------------------------------------------------------------------------------------------------------
Private Sub BUTTON1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BUTTON1.Click
strsql = "SELECT * FROM person
con = New OleDbConnection(strcon)
con.Open()
da = New OleDbDataAdapter(strsql, con) ,change
da.Fill(dt) ,change
DataGridView1.DataSource = dt ,change
dt.Dispose()
da.Dispose()
cmd.Dispose()
con.Dispose()
End Sub
اما وقتی اون خطوطی رو که جلوشون change نوشتم با خطوط زیر عوض میکنم برنامه کار نمی کنه
da = New OleDbDataAdapter(strsql, con)
da.Fill(ds, "person")
DataGridView1.DataSource = ds
اگه ممکنه یه خورده توضیح بدین