david
344ba18b08
- poder indicar individualmente qué artículos están en la tienda o no - arreglado el problema con ñ y tildes al volcar información a MySQL. git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@247 c93665c3-c93d-084d-9b98-7d5f4a9c3376
52 lines
1.1 KiB
ObjectPascal
52 lines
1.1 KiB
ObjectPascal
unit uTiendaWebUtils;
|
|
|
|
interface
|
|
|
|
//function TratarCadena (Cadena: String): String;
|
|
|
|
function HayConexionConTienda(const AODBCName : String; var AErrorMsg: String): Boolean;
|
|
|
|
implementation
|
|
|
|
uses
|
|
SysUtils, SqlExpr, Dialogs, ADODB;
|
|
|
|
function HayConexionConTienda(const AODBCName : String; var AErrorMsg: String): Boolean;
|
|
var
|
|
ADOConnection1: TADOConnection;
|
|
begin
|
|
AErrorMsg := '';
|
|
ADOConnection1 := TADOConnection.Create(nil);
|
|
try
|
|
with ADOConnection1 do
|
|
begin
|
|
Name := 'ADOConnection1';
|
|
Provider := 'MSDASQL.1';
|
|
LoginPrompt := False;
|
|
ConnectionString := 'Provider=MSDASQL.1;Persist Security Info=False;CHARSET=utf8;' +
|
|
'Data Source=' + AODBCName;
|
|
|
|
try
|
|
Connected := True;
|
|
Result := True;
|
|
Connected := False;
|
|
except
|
|
on E : Exception do
|
|
begin
|
|
Result := False;
|
|
AErrorMsg := e.Message;
|
|
end;
|
|
end;
|
|
end;
|
|
finally
|
|
FreeAndNIL(ADOConnection1);
|
|
end;
|
|
end;
|
|
|
|
{function TratarCadena (Cadena: String): String;
|
|
begin
|
|
Result := StringReplace(Cadena, '''', '\\''', []);
|
|
end;}
|
|
|
|
end.
|