12-12-17, 09:31 PM
عندي مديول فيه كود الاتصال بقاعدة البيانات احتاج ان اضع الكود في ملف نصي واسدعي الكود من داخل
الملف النصي هذا هوا الكود :
Public Sub ConnectDB()
If MyConnObj.State = 1 Then MyConnObj.Close
Dim sqlStr As String ' String variable to store sql command
MyConnObj.Open _
"Provider = sqloledb ;" & _
"Data Source=192.168.8.100,1433;" & _
"Initial Catalog=Data;" & _
"User ID=PC2;" & _
"Password=PC21984;"
End Sub
الملف النصي هذا هوا الكود :
Public Sub ConnectDB()
If MyConnObj.State = 1 Then MyConnObj.Close
Dim sqlStr As String ' String variable to store sql command
MyConnObj.Open _
"Provider = sqloledb ;" & _
"Data Source=192.168.8.100,1433;" & _
"Initial Catalog=Data;" & _
"User ID=PC2;" & _
"Password=PC21984;"
End Sub
