منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاتة

اخواني الافاضل انا الان قمت بعمل قاعدة بيانات sql server وربطها مع vb.net
اريد كود الاتصال بالقاعده ليعمل على اي جهاز به الـ sql server

انا اقوم بوضع ملف القاعده بجانب البرنامج فى الـ debug

Imports System.Data.OleDb
Module Module1
Dim s As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\per.accdb"
Public cn As New OleDbConnection(s)
Sub main()
Try
cn.Open()
Dim a As New Form1
a.ShowDialog()
Catch ex As Exception
MsgBox("error")
End Try
End Sub

نور دربي هذا جملة اتصال بالاكسس وليس سكيوال