john smithair
چهارشنبه 31 شهریور 1389, 15:09 عصر
سلام
امیدورام که ایام به کامتون باشه!!
دوستان من برای کار با دیتا بیس اکسسم از کلاس زیر استفاده میکنم!!
کلاس fill data!!!
Public Class filldata
Dim DatabasePath = IO.Path.Combine(Application.StartupPath, "Students.mdb;")
Dim ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & DatabasePath & "Persist Security Info=False"
Public Sub Fill(ByVal SqlString As String, ByVal Binding As BindingSource)
Dim OleDbConn As OleDb.OleDbConnection = New OleDb.OleDbConnection(ConnString)
OleDbConn.Open()
Dim MyDataSet As DataSet = New DataSet()
Dim MyOleDataAdapter As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter()
MyOleDataAdapter.SelectCommand = New OleDb.OleDbCommand(SqlString, OleDbConn)
MyOleDataAdapter.Fill(MyDataSet)
Binding.DataSource = MyDataSet.Tables(0)
MyOleDataAdapter.Dispose()
MyDataSet.Dispose()
OleDbConn.Close()
OleDbConn.Dispose()
End Sub
End Class
و تو هر فرمی هم که میخوام با این کلاس خب کار کنم از اون یه تعریف این چنینی دارم :
Dim filldata As New filldata
و خب با توجه به این کلاس و تعریف فوق برای ذخیره کردن تغییرای جدولای دینت بیس اکسسم از دستوری مثل مثلا دستور زیر استفاده میکنم:
filldata.Fill("Update Moarefi Set Sm='" & SmTextBox.Text & "' ,Famil='" & FamilTextBox.Text & "', Kelas='" & KelasTextBox.Text & "', Tel='" & TelTextBox.Text & "' Where ID=" & IDTextBox.Text, MoarefiBindingSource)
اما تو اینجا بهم این ارور رو میده!!
البته تغییرات ذخیره میشه ولی این ارور رو هم میده!!!
آیا کسی میتونه بهم کمک کنه؟؟
ممنون که واسه مطالعه این متن وقت گذاشتید!!
و همین طور پیشاپیش از کمک هاتون ممنونم!!
امیدورام که ایام به کامتون باشه!!
دوستان من برای کار با دیتا بیس اکسسم از کلاس زیر استفاده میکنم!!
کلاس fill data!!!
Public Class filldata
Dim DatabasePath = IO.Path.Combine(Application.StartupPath, "Students.mdb;")
Dim ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & DatabasePath & "Persist Security Info=False"
Public Sub Fill(ByVal SqlString As String, ByVal Binding As BindingSource)
Dim OleDbConn As OleDb.OleDbConnection = New OleDb.OleDbConnection(ConnString)
OleDbConn.Open()
Dim MyDataSet As DataSet = New DataSet()
Dim MyOleDataAdapter As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter()
MyOleDataAdapter.SelectCommand = New OleDb.OleDbCommand(SqlString, OleDbConn)
MyOleDataAdapter.Fill(MyDataSet)
Binding.DataSource = MyDataSet.Tables(0)
MyOleDataAdapter.Dispose()
MyDataSet.Dispose()
OleDbConn.Close()
OleDbConn.Dispose()
End Sub
End Class
و تو هر فرمی هم که میخوام با این کلاس خب کار کنم از اون یه تعریف این چنینی دارم :
Dim filldata As New filldata
و خب با توجه به این کلاس و تعریف فوق برای ذخیره کردن تغییرای جدولای دینت بیس اکسسم از دستوری مثل مثلا دستور زیر استفاده میکنم:
filldata.Fill("Update Moarefi Set Sm='" & SmTextBox.Text & "' ,Famil='" & FamilTextBox.Text & "', Kelas='" & KelasTextBox.Text & "', Tel='" & TelTextBox.Text & "' Where ID=" & IDTextBox.Text, MoarefiBindingSource)
اما تو اینجا بهم این ارور رو میده!!
البته تغییرات ذخیره میشه ولی این ارور رو هم میده!!!
آیا کسی میتونه بهم کمک کنه؟؟
ممنون که واسه مطالعه این متن وقت گذاشتید!!
و همین طور پیشاپیش از کمک هاتون ممنونم!!