مشكلة طول وقت الاتصال

السلام عليكم

هذه ليست مشكلة SQL server وانما مشكلة شبكات او بالاخص الانترنت فانت بحاجة الى خطوط انترنت اسرع .

اخي الكريم شكرا للتفاعل

اذا كانت زيادة سرعة الانترنت فالمشكلة بسيطة

طيب كيف يمكن ان نقوم بتشغيل كود او تايمر اثناء الامر open

كالبرامج الشهيرة مثل الياهو و البالتوك عند الدخول عليها

جربت التايمر و doevents

كل شئ يتوقف عند الامر open

اقتباس

كل شئ يتوقف عند الامر open

هناك خاصية فتح الاتصال Asynchronous لكن لا اذكر اوامر استخدمها

بصراحة بحثت و لكن ما توصلت لشئ

السلام عليكم

الفكرة هي كما في الكود التالي :

Dim WithEvents con   As Connection
Dim isConneted As Boolean

Private Sub con_ConnectComplete(ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pConnection As ADODB.Connection)

isConneted = True
If pError Is Nothing Then

Else
    MsgBox pError.Description, vbCritical
    End 'Stop the program
End If

End Sub

Private Sub con_InfoMessage(ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pConnection As ADODB.Connection)

End Sub

Private Sub Form_Load()
Set con = New Connection
Const constr As String = "PROVIDER=SQLOLEDB.1;Password=pwd;Persist Security Info=True;User ID=sa;Initial Catalog=db;Data Source=.;"
con.Open constr, Options:=adAsyncConnect
Show
Do
DoEvents
'
Loop Until isConneted
End Sub

ولو تتبعت الكود ستجد عند الوصول الى جملة الاتصال سيتم اجتيازها دون الوقوف عليها وعند نجاح او فشل الاتصال سيتم اطلاق الحدث con_ConnectComplete

بجد ما شاء الله عليك

و ربنا يزيدك من علمه

هاتقل عليك ازاي نجبر الكونكشن على ايقاف الاتصال اثناء الاتصال

اخي طارق

بالنسة لهذا الكود Dim WithEvents con As Connection

كيف يمكن استخدام con فى كل شاشات البرنامج ؟

اقصد كيف يصبح Public

بالنسبة ايقاف الاتصال فلا اعرف الكيفية ولا اعرف ان كانت ممكنة ام لا .

اقتباس

كيف يمكن استخدام con فى كل شاشات البرنامج ؟

ضعه في Class او في فورم خاص واجعله Public

public WithEvents con As Connection

وعند الاستخدام

form1.con