08-04-18, 02:25 AM
والله يا اخي الكريم اتمنى لو تعطيني طريقة الفنكشن هذي اكون شاكر لك
يعني مثلا جملة الاتصال لدي كالتالي :
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=10.19.20.76;" & _
"Initial Catalog=Data;" & _
"User ID=PC3;" & _
"Password=PC31984;"
End Sub
وفي حدث اللود فورم استدعي كود الاتصال :
ConnectDB()
يعني مثلا جملة الاتصال لدي كالتالي :
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=10.19.20.76;" & _
"Initial Catalog=Data;" & _
"User ID=PC3;" & _
"Password=PC31984;"
End Sub
وفي حدث اللود فورم استدعي كود الاتصال :
ConnectDB()
