TAHA
10-01-2009, 04:59 PM
procedure TForm1.Button1Click(Sender: TObject); begin ADOConnection1.Connected := True; ADOCommand1.CommandText := 'Exec SP_AddLogin ' + QuotedStr('UserName') + ',' + QuotedStr('Password') + ',' + QuotedStr('Database Name') + ',' + QuotedStr('English') + ';'; ADOCommand1.Execute; end;