I am trying to set the caption of a label
before doing a test of a connection to an SQL server
Private Sub SQL_Test_Button_Click()
Const NVGeneralBottleRecordConnString = "Provider=SQLNCLI10.1;Data Source=FASDB\FAS_MSSQLSERVER;Initial Catalog=BatchRecord;" & "User Id=SQLusrVb;Password=SQLusrVb1!"
Record_Str.Caption = "Please Wait, testing connection to SQL Server"
Record_Str.Refresh
TestConnectionToSqlServer (NVGeneralBottleRecordConnString)
End If
End Sub
However the caption is not updated until the call to the
TestConnectionToSqlServer has timed out
How do I get the caption to update before the call
Thanks
before doing a test of a connection to an SQL server
Private Sub SQL_Test_Button_Click()
Const NVGeneralBottleRecordConnString = "Provider=SQLNCLI10.1;Data Source=FASDB\FAS_MSSQLSERVER;Initial Catalog=BatchRecord;" & "User Id=SQLusrVb;Password=SQLusrVb1!"
Record_Str.Caption = "Please Wait, testing connection to SQL Server"
Record_Str.Refresh
TestConnectionToSqlServer (NVGeneralBottleRecordConnString)
End If
End Sub
However the caption is not updated until the call to the
TestConnectionToSqlServer has timed out
How do I get the caption to update before the call
Thanks