sosono
چهارشنبه 06 خرداد 1388, 16:34 عصر
با سلام من تازه برنامه نویسی رو شروع کردم اگه ممکنه به این سوالات ساده پاسخ بدید.
1- برای ایجاد یه رکورد جدید چه کدی رو باید به این کد ها اضافه کنم؟
2- برای ذخیره کردن یه رکورد چه کدی رو باید بنویسم؟
Imports System.Data.OleDb
Public Class Form1
Dim con As OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As New DataSet
Dim s1, s2 As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
s1 = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=H:\Test.Mdb"
con = New OleDbConnection(s1)
Con.Open()
s2 = "select*from Table1"
da = New OleDbDataAdapter(s2, con)
da.Fill(ds, "Table1")
TextBox2.DataBindings.Add(New Binding("text", ds, "Table1.name"))
TextBox3.DataBindings.Add(New Binding("text", ds, "Table1.family"))
TextBox4.DataBindings.Add(New Binding("text", ds, "Table1.father name"))
End Sub
End Class
1- برای ایجاد یه رکورد جدید چه کدی رو باید به این کد ها اضافه کنم؟
2- برای ذخیره کردن یه رکورد چه کدی رو باید بنویسم؟
Imports System.Data.OleDb
Public Class Form1
Dim con As OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As New DataSet
Dim s1, s2 As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
s1 = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=H:\Test.Mdb"
con = New OleDbConnection(s1)
Con.Open()
s2 = "select*from Table1"
da = New OleDbDataAdapter(s2, con)
da.Fill(ds, "Table1")
TextBox2.DataBindings.Add(New Binding("text", ds, "Table1.name"))
TextBox3.DataBindings.Add(New Binding("text", ds, "Table1.family"))
TextBox4.DataBindings.Add(New Binding("text", ds, "Table1.father name"))
End Sub
End Class