PDA

View Full Version : ایجاد کانکشن در windows application



mehdi3683
شنبه 15 فروردین 1383, 00:37 صبح
چه جوری می تونم یک connection برای استفاده از دیتابیس sql server, accessدر یک window applicatinبا vb.net انجام بدم
البته با کد نویسی ( با محیط ویژوال براحتی انجام میشود )

h_rezaei
شنبه 15 فروردین 1383, 16:21 عصر
خوب یکی از ویژگی های دات نت اینه که وقتی با ویزارد کاری رو انجام میدی کد پشت آن مخفی نشده پس برای شروع می توانی با همون ویزاردها کار کنی و اگه دستی خواستی آبجکتهای مختلف رو بسازی عین همون کدهای ویزارد (در رجیون فرم دیزانر) رو بنویسی اگه نشد بگو یه مثال بنویسم اینجا

mehdi3683
یک شنبه 16 فروردین 1383, 06:33 صبح
ممنوم میشم اگه لطف کنین

h_rezaei
یک شنبه 16 فروردین 1383, 20:29 عصر
بهتره اول کانکشن رو به طور گلوبال تو یه ماژول تعریف کنی


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,...رو اداره کنی .
کافی بود؟

mehdi3683
دوشنبه 17 فروردین 1383, 01:14 صبح
از اینکه صبورانه جواب دادین واقعا ممنون :)