16-03-25, 01:09 AM
وعليكم السلام ورحمة الله وبركاته
تفضل الكود
تفضل الكود
كود :
Imports System.Data.SqlClient
Module Module1
public sub connsql()
Dim connectionString As String = "Server=sever123;Database=mohamed;Integrated Security=True;"
Using conn As New SqlConnection(connectionString)
Try
conn.Open()
msgbox("تم الاتصال بقاعدة البيانات بنجاح")
Catch ex As Exception
msgbox("خطأ في الاتصال: " & ex.Message)
End Try
End Using
End Sub
End Moduleلا إله إلا الله وحده لا شريك له له الملك وله الحمد وهو على كل شئ قدير
سبحان الله وبحمده سبحان الله العظيم
سبحان الله والحمد لله ولا إله إلا الله والله أكبر ولا حول ولا قوة إلا بالله العلى العظيم
رب أغفر لي

