بهتره اول کانکشن رو به طور گلوبال تو یه ماژول تعریف کنی
Module glbDeclarations
Friend strConn As String
Friend strSQLCustomer As String = "Select * from Customers"
Sub main()
strConn = "data source=(local);" _
& "initial catalog=Northwind;" _
& "integrated security=true;"
Dim myDataEntry As New frmDataEntry()
myDataEntry.Show()
Application.Run()
End Sub
End Module
بعد یه فرم dataEntry درست می کنی و در ابتدای آن
Imports System.Data.SqlClient
و بعد از رجیون فرم دیزاینر آبجکت های لازم رو میسازی و مقدار میدی
Private conn As New SqlConnection(strConn)
Private daCustomers As New SqlDataAdapter(strSQLCustomer, conn)
Private dsCustomers As New DataSet()
Private cmCustomers As CurrencyManager
پر کردن دیتا ست :
daCustomers.Fill(dsCustomers, "Customers")
و بعدش textbox ها و سایر کامپوننت هایی رو که میخوای به دیتاست bind بشن رو بایند می کنی
txtID.DataBindings.Add("Text", dsCustomers.Tables("Customers"), "CustomerID")
txtName.DataBindings.Add("Text", dsCustomers.Tables("Customers"), "CompanyName")
حالا با استفاده از اون متغیر currency manager می تونی به Add,delete,naviagte,...رو اداره کنی .
کافی بود؟
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول