[Mido-9]

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

اخواني الافاضل انا الان قمت بعمل قاعدة بيانات 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

[رضوان الجماعي]

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