Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Crear DNS

21/04/2010 - 13:50 por Edwin Duran | Informe spam
Ayuda Hacer una pregunta
Saludos

estoy tratando de crear un dns por condigo y tengo el siguiente error
"missing operand" en la linea de codigo
lnIsAdded = SQLConfigDataSource(0, ODBC_ADD_SYS_DSN, lcDriver, lcAttributes)


Este es el codigo probando

a= 'SQL Server'
b= 'DSN=Edwin SQL' + CHR(0) + 'Description=SQL Server ODBC Driver' + CHR(0)
+ 'uid=' + CHR(0) + 'pwd=' + CHR(0) + 'Database=dbPadronImage2008' + CHR(0)
+ 'ServerÞLL' + CHR(0) + 'Network=default' + CHR(0) + 'address=default'

=AddDataSource(a,b)


FUNCTION AddDataSource
LPARAMETERS tcDriver, tcAttributes
LOCAL lcDriver, lcAttributes, llRetVal, lnIsAdded
*!* Instrucciones DECLARE DLL para manipular DataSources
DECLARE INTEGER SQLConfigDataSource IN ODBCCP32.dll INTEGER hwndParent,
INTEGER fRequest, STRING lpszDriver, STRING lpszAttributes
*!* Valores
lcDriver = IIF(EMPTY(lcDriver), 'Microsoft Visual FoxPro Driver',
PROPER(tcDriver)) + CHR(0)
lcAttributes = IIF(EMPTY(lcAttributes), 'DSN=edwin' + CHR(0) +
'Description=VFP ODBC Driver' + CHR(0) + 'SourceDB=temporal.dbf' + CHR(0) +
'SourceTypeÛF', PROPER(tcAttributes)) + CHR(0)
*!* Agregar el nuevo DataSource DNS
lnIsAdded = SQLConfigDataSource(0, ODBC_ADD_SYS_DSN, lcDriver, lcAttributes)
*!* Valores
llRetVal = (lnIsAdded = 1)
*!* Retorno
RETURN llRetVal
ENDFUNC
email Siga el debateRespuesta 3 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Edwin Duran
21/04/2010 - 17:05 | Informe spam
se corrigio con este ejemplo
*Como crear un dns por codigo

Local lcDriver,lc_dsn,fResult, intRet

*# Define ODBC_ADD_DSN 1

#Define ODBC_ADD_DSN 1 &&' Add data source

#Define ODBC_CONFIG_DSN 2 &&' Configure (edit) data source

#Define ODBC_REMOVE_DSN 3 &&' Remove data source

?

Declare Integer SQLConfigDataSource In odbccp32.Dll;

INTEGER ,;

SHORT ,;

STRING @,;

STRING @

Lc_Driver = "SQL Server" +Chr(0)

lc_dsn = "dsn=midns"+Chr(0)+;

"Server=miservidor"+Chr(0)+;

"database=mibase de datos"+Chr(0)+;

"NetworkÛMSSOCN"+Chr(0)

fResult = SQLConfigDataSource( 0,ODBC_ADD_DSN,@Lc_Driver,@lc_dsn)

If fResult>0

=Messagebox( "DSN Created" )

Else

=Messagebox( "Create Failed" )

ENDIF





"Edwin Duran" escribió en el mensaje
news:e$
Saludos

estoy tratando de crear un dns por condigo y tengo el siguiente error
"missing operand" en la linea de codigo
lnIsAdded = SQLConfigDataSource(0, ODBC_ADD_SYS_DSN, lcDriver,
lcAttributes)


Este es el codigo probando

a= 'SQL Server'
b= 'DSN=Edwin SQL' + CHR(0) + 'Description=SQL Server ODBC Driver' +
CHR(0) + 'uid=' + CHR(0) + 'pwd=' + CHR(0) + 'Database=dbPadronImage2008'
+ CHR(0) + 'ServerÞLL' + CHR(0) + 'Network=default' + CHR(0) +
'address=default'

=AddDataSource(a,b)


FUNCTION AddDataSource
LPARAMETERS tcDriver, tcAttributes
LOCAL lcDriver, lcAttributes, llRetVal, lnIsAdded
*!* Instrucciones DECLARE DLL para manipular DataSources
DECLARE INTEGER SQLConfigDataSource IN ODBCCP32.dll INTEGER hwndParent,
INTEGER fRequest, STRING lpszDriver, STRING lpszAttributes
*!* Valores
lcDriver = IIF(EMPTY(lcDriver), 'Microsoft Visual FoxPro Driver',
PROPER(tcDriver)) + CHR(0)
lcAttributes = IIF(EMPTY(lcAttributes), 'DSN=edwin' + CHR(0) +
'Description=VFP ODBC Driver' + CHR(0) + 'SourceDB=temporal.dbf' + CHR(0)
+ 'SourceTypeÛF', PROPER(tcAttributes)) + CHR(0)
*!* Agregar el nuevo DataSource DNS
lnIsAdded = SQLConfigDataSource(0, ODBC_ADD_SYS_DSN, lcDriver,
lcAttributes)
*!* Valores
llRetVal = (lnIsAdded = 1)
*!* Retorno
RETURN llRetVal
ENDFUNC

Preguntas similares

 

Busqueda sugerida :