| Pregunta: | 48549 - CONEXION DELPHI CON SQL |
| Autor: | Yeison Cristman Nicasio Rubio |
| QUIERO SABER COMO ES EL PROCEDIMIENTO PARA CONECTAR DELPHI CON SQL POR FAVOR | |
| Respuesta: | Alfonso Saiz |
| Hola Yeison,
A continuación te muestro la función que he definido para conectarme a un servidor SQL. Espero que te ayude. //Es una función que recibe como parámetros la cadena de conexión // el usuario, la contraseña y el nombre de la base de datos function ConnectToSQLServer(strServer, strUserID, strPassword, strDBName : String) : TADOConnection; function ConnectToSQLServer(strServer, strUserID, strPassword, strDBName : String) : TADOConnection; var SQLConnection : TADOConnection; begin //***********************************************************************/ // Se crea la conexion al servidor donde esta la BBDD en SQL //***********************************************************************/ SQLConnection := TADOConnection.Create(nil); SQLConnection.ConnectionString := 'Provider=SQLOLEDB.1;Password='+ strPassword+';Persist Security Info=True;' +'User ID='+strUserID+';Initial Catalog='+strDBName+';Data Source='+strServer+';Use Procedure for Prepare=1;' +'Auto Translate=True;Packet Size=4096;Use Encryption for Data=False;'; SQLConnection.LoginPrompt := False; try SQLConnection.Connected := True; Result := SQLConnection; except Result := nil; end; end; Desde el formulario, invoco a la función de la siguiente manera: Definio un objeto ADOConnection1:TADOConnection; e invoco a la función ADOConnection1 := ConnectToSQLServer(NOMBREDELSERVIDOR, 'sa', 'saPassword', PRUEBA); | |