Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
SQL Code Problem
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
01564364
Message ID:
01564368
Views:
46
>>Bear in mind that I haven't touched VFP in 10+ years....
>>
>>I'm writing this:
>>
>>
>>CLEAR
>>sqlProcs = CREATEOBJECT("MyStuff ")
>>sqlProcs.ConnectionString = "Data Source=192.168.2.5;Initial Catalog=Spares2;User Id=Kevin;Password=password1"
>>
>>LOCAL conneted as Boolean
>>conneted = sqlProcs.TestConnection()
>>
>>IF sqlProcs.ErrorOccured
>>	? sqlProcs.ErrorMessage
>>ELSE
>>	? conneted
>>ENDIF
>>
>>
>>
>>#DEFINE TRUE	.T.
>>#DEFINE FALSE	.F.
>>#DEFINE NEWLINE CHR(13)
>>
>>DEFINE CLASS MyStuff AS Custom
>>
>>	connectionHandle = 0;
>>
>>	ErrorMessasge = ""
>>	ErrorOccured = FALSE
>>	
>>	ConnectionString = ""
>>	PROCEDURE ConnectionString_Access()
>>    	RETURN This.ConnectionString 
>>	ENDPROC
>>
>>	PROCEDURE ConnectionString_Assign(PropValue)
>>    	This.ConnectionString   = PropValue
>>	ENDPROC
>>
>>	**********************************************************
>>	* Function.: TestConnection
>>	* Purpose..: Tests a connnection to SQL Server
>>	*
>>	**********************************************************
>>  	FUNCTION TestConnection() AS Boolean
>>
>>		LOCAL Connected AS Boolean
>>		Connected = TRUE
>>
>>		IF This.ConnectionString = "" THEN
>>			ErrorMessasge = "No connection string specified"
>>			ErrorOccured = TRUE
>>		ENDIF
>>		
>>		IF NOT ErrorOccured 
>>			SQLSETPROP(0,"DispLogin",3)
>>
>>			TRY
>>				connectionHandle = SQLSTRINGCONNECT(This.ConnectionString)
>>			CATCH TO exceptionObject
>>				AERROR(errorArray)
>>		   		ErrorMessasge = "Error " + ALLTRIwM(STR(errorArray(0))) + ". Cannot make connection." + NEWLINE + errorArray(1)
>>		   		ErrorOccured = TRUE
>>				Connected = FALSE
>>			ENDTRY
>>				   
>>			IF connectionHandle >0
>>			   = SQLDISCONNECT(connectionHandle )
>>			ENDIF
>>			
>>		ENDIF
>>		
>>	RETURN Connected
>>
>>
>>ENDDEFINE
>>
>>
>>When I run this, the connection string property is empty down in TestConnection
>>
>>What am I doing wrong here???
>
>Why do you need Access and Assign methods for connection? What if you comment them for now?

It was working even before I added the Access & Assign methods. I though making it a property might make a difference.
Everything makes sense in someone's mind
public class SystemCrasher :ICrashable
In addition, an integer field is not for irrational people
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform